- Timestamp:
- 2012-11-21T14:19:18+01:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2012/dev_NOC_2012_rev3555/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90
r3610 r3625 46 46 USE mppini ! shared/distributed memory setting (mpp_init routine) 47 47 USE domain ! domain initialization (dom_init routine) 48 #if defined key_nemocice_decomp 49 USE ice_domain_size, only: nx_global, ny_global 50 #endif 48 51 USE obcini ! open boundary cond. initialization (obc_ini routine) 49 52 USE bdyini ! open boundary cond. initialization (bdy_init routine) … … 259 262 ! than variables 260 263 IF( Agrif_Root() ) THEN 264 #if defined key_nemocice_decomp 265 jpi = ( nx_global+2-2*jpreci + (jpni-1) ) / jpni + 2*jpreci ! first dim. 266 jpj = ( ny_global+2-2*jprecj + (jpnj-1) ) / jpnj + 2*jprecj ! second dim. 267 #else 261 268 jpi = ( jpiglo-2*jpreci + (jpni-1) ) / jpni + 2*jpreci ! first dim. 262 #if defined key_nemocice_decomp263 jpj = ( jpjglo+1-2*jprecj + (jpnj-1) ) / jpnj + 2*jprecj ! second dim.264 #else265 269 jpj = ( jpjglo-2*jprecj + (jpnj-1) ) / jpnj + 2*jprecj ! second dim. 266 270 #endif … … 322 326 IF( lk_bdy ) CALL tide_init ! Open boundaries initialisation of tidal harmonic forcing 323 327 324 CALL flush(numout)325 328 CALL dyn_nept_init ! simplified form of Neptune effect 326 CALL flush(numout)327 329 328 330 CALL istate_init ! ocean initial state (Dynamics and tracers)
Note: See TracChangeset
for help on using the changeset viewer.