Driver
|
|
|=> DriveInit (input user-control parameters)
|
|=> TimeManager (starting the time manager)
|
|=> OceanInit
| |
| |=> sstin or bndry1 (read initial SST)
|
|=> qtcminit
| |
| |=> parinit (model parameters)
| | |
| | |=> humtable (set up saturation humidity table)
| |
| |=> varinit (initialize prognostic variables)
| |
| |=> bndinit (boundary data)
|
|=> outpinit (open the global output files)
|
| DO 1 (ocean-atmosphere coupling loop)
|
|=> TimeManager (advance the calendar)
|
|=> Ocean (ocean module)
| |
| |=> sstin (read in SST at the right time)
| |
| |=> TimeInterp (interpolate SST)
| or
| |
| |=> getQflux (read Qflux)
| |=> getSfcHeat (compute averaged surface fluxes)
| |=> mxstep (compute SST)
|
|=> QTCM (QTCM1 main)
| |
| |=> getbnd
| | |
| | |=> getSST (fetch SST from Ocean)
| | |
| | |=> bndry1 (fetch climatological boundary data - albedo)
| |
| | Do 2 (land-atmosphere coupling loop)
| |
| |=> set_qclock (advance the clock for the loop)
| |
| |=> physics1 (physics package for mode T1)
| | |
| | |=> mconvct (moist convection)
| | |
| | |=> cloud (compute or read cloud fraction)
| | |
| | |=> radsw (shortwave radiation)
| | | |
| | | |
| | | |=> solartop (incoming solar at TOA)
| | |
| | |=> radlw (longwave radiation)
| | |
| | |=> sflux (surface fluxes)
| |
| |=> sland1 (land-surface scheme)
| |
| |=> atmostep
| | |
| | |=> advctuv (advection of momentum)
| | | |
| | |=> advctTq (advection of T, q)
| | | |
| | |=> dffus (diffusion)
| | | |
| | |=> barcl (baroclinic component V1)
| | | |
| | |=> bartr (barotropic component V0)
| | |
| | |=> fatdpkg (Poisson solver)
| |
| |=> varmean (summing/averaging variables)
| |
| |=> cplmean (computing mean sfc. flux if coupled with ocean)
| |
| | ENDDO 2
|
|=> outpall
| |
| |=> outpinst (output instantaneous values)
| |
| |=> outpmean (output mean values such as monthly average)
| |
| |=> out_restart (prognostic variables for
| restart run)
|
| ENDDO 1
|
|=> finish (wrap up)
| |
| |=> out_restart (force out_restart, overwrite
old ones)