Changeset 2082 for branches/DEV_r2006_merge_TRA_TRC/NEMO/OPA_SRC/opa.F90
- Timestamp:
- 2010-09-10T12:32:58+02:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/DEV_r2006_merge_TRA_TRC/NEMO/OPA_SRC/opa.F90
r2052 r2082 37 37 USE step_oce ! Time stepping module definition 38 38 USE sbc_oce ! surface boundary condition: ocean 39 USE trdmod_oce ! ocean variables trends40 39 USE domcfg ! domain configuration (dom_cfg routine) 41 40 USE mppini ! shared/distributed memory setting (mpp_init routine) … … 48 47 USE zdfini 49 48 USE phycst ! physical constant (par_cst routine) 50 USE trdmod ! momentum/tracers trends (trd_mod_init routine)51 49 USE step ! OPA time-stepping (stp routine) 52 50 #if defined key_oasis3 … … 160 158 !! 161 159 !!---------------------------------------------------------------------- 162 #if defined key_oasis3 || defined key_oasis4 || defined key_iomput163 160 INTEGER :: ilocal_comm 164 #endif165 161 CHARACTER(len=80),dimension(10) :: cltxt = '' 166 162 INTEGER :: ji ! local loop indices … … 192 188 narea = mynode( cltxt, ilocal_comm ) ! Nodes selection (control print return in cltxt) 193 189 # else 190 ilocal_comm = 0 194 191 narea = mynode( cltxt ) ! Nodes selection (control print return in cltxt) 195 192 # endif … … 220 217 ! !--------------------------------! 221 218 222 CALL opa_flg ! Control prints & Benchmark223 224 ! Domain decomposition219 CALL opa_flg ! Control prints & Benchmark 220 221 ! ! Domain decomposition 225 222 IF( jpni*jpnj == jpnij ) THEN ; CALL mpp_init ! standard cutting out 226 223 ELSE ; CALL mpp_init2 ! eliminate land processors … … 231 228 232 229 230 ! ! General initialization 233 231 CALL phy_cst ! Physical constants 234 232 CALL eos_init ! Equation of state … … 245 243 246 244 ! ! Ocean physics 247 CALL sbc_init ! Read namsbc namelist : surface module (needed for iom_init)248 249 ! ! Vertical physics250 CALL zdf_init ! namelist read251 CALL zdf_bfr_init ! bottom friction252 IF( lk_zdfric ) CALL zdf_ric_init ! Richardson number dependent Kz253 IF( lk_zdftke_old ) CALL zdf_tke_init ! TKE closure scheme for Kz (old scheme)254 IF( lk_zdftke ) CALL tke_init ! TKE closure scheme for Kz255 IF( lk_zdfkpp ) CALL zdf_kpp_init ! KPP closure scheme for Kz256 IF( lk_zdftmx ) CALL zdf_tmx_init ! tidal vertical mixing245 CALL sbc_init ! Forcings : surface module 246 247 ! ! Vertical physics 248 CALL zdf_init ! namelist read 249 CALL zdf_bfr_init ! bottom friction 250 IF( lk_zdfric ) CALL zdf_ric_init ! Richardson number dependent Kz 251 IF( lk_zdftke_old ) CALL zdf_tke_init ! TKE closure scheme for Kz (old scheme) 252 IF( lk_zdftke ) CALL tke_init ! TKE closure scheme for Kz 253 IF( lk_zdfkpp ) CALL zdf_kpp_init ! KPP closure scheme for Kz 254 IF( lk_zdftmx ) CALL zdf_tmx_init ! tidal vertical mixing 257 255 IF( lk_zdfddm .AND. .NOT. lk_zdfkpp ) & 258 & CALL zdf_ddm_init ! double diffusive mixing 259 ! ! Lateral physics 260 CALL ldf_tra_init ! Lateral ocean tracer physics 261 CALL ldf_dyn_init ! Lateral ocean momentum physics 262 IF( lk_ldfslp ) CALL ldf_slp_init ! slope of lateral mixing 256 & CALL zdf_ddm_init ! double diffusive mixing 257 ! ! Lateral physics 258 CALL ldf_tra_init ! Lateral ocean tracer physics 259 CALL ldf_dyn_init ! Lateral ocean momentum physics 260 IF( lk_ldfslp ) CALL ldf_slp_init ! slope of lateral mixing 261 263 262 ! ! Active tracers 264 263 CALL tra_qsr_init ! penetrative solar radiation qsr … … 280 279 #if defined key_top 281 280 ! ! Passive tracers 282 CALL trc_ini 283 #endif 284 281 CALL trc_init 282 #endif 285 283 ! ! diagnostics 286 284 CALL iom_init ! iom_put initialization
Note: See TracChangeset
for help on using the changeset viewer.