- Timestamp:
- 2013-09-09T12:13:17+02:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_r3940_CNRS4_IOCRS/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90
r3769 r4015 29 29 !! 3.3.1! 2011-01 (A. R. Porter, STFC Daresbury) dynamical allocation 30 30 !! 3.4 ! 2011-11 (C. Harris) decomposition changes for running with CICE 31 !! ! 2012-05 (C. Calone, J. Simeon, G. Madec, C. Ethe) Add grid coarsening 31 32 !!---------------------------------------------------------------------- 32 33 … … 84 85 #endif 85 86 USE sbctide, ONLY: lk_tide 87 USE crsini ! initialise grid coarsening utility 86 88 87 89 IMPLICIT NONE … … 347 349 CALL dyn_nept_init ! simplified form of Neptune effect 348 350 349 ! ! Ocean physics 351 ! 352 IF( ln_crs ) CALL crs_init ! Domain initialization of coarsened grid 353 ! 354 ! Ocean physics 350 355 CALL sbc_init ! Forcings : surface module 351 356 ! ! Vertical physics … … 553 558 ierr = ierr + zdf_oce_alloc () ! ocean vertical physics 554 559 ! 555 ierr = ierr + lib_mpp_alloc (numout) ! mpp exchanges556 560 ierr = ierr + trc_oce_alloc () ! shared TRC / TRA arrays 557 561 !
Note: See TracChangeset
for help on using the changeset viewer.