New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 7217 for branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90 – NEMO

Ignore:
Timestamp:
2016-11-09T21:27:33+01:00 (7 years ago)
Author:
cbricaud
Message:

CRS branch: code cleaning

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90

    r7204 r7217  
    395395      IF( ln_ctl        )   CALL prt_ctl_init   ! Print control 
    396396 
    397       IF( ln_crs        )   CALL     crs_init   ! Domain initialization of coarsened grid 
     397      IF( lk_crs        )   CALL     crs_init   ! Domain initialization of coarsened grid 
    398398 
    399399                            CALL  istate_init   ! ocean initial state (Dynamics and tracers) 
     
    410410                            CALL dyn_nept_init  ! simplified form of Neptune effect 
    411411      !      
    412       IF( ln_crs        )   CALL     eos_init_crs   ! Equation of state 
     412      IF( lk_crs        )   CALL     eos_init_crs   ! Equation of state 
    413413      ! 
    414414                                ! Ocean physics 
Note: See TracChangeset for help on using the changeset viewer.