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 5741 for branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcini_medusa.F90 – NEMO

Ignore:
Timestamp:
2015-09-14T14:47:58+02:00 (9 years ago)
Author:
jpalmier
Message:

JPALM --14-09-2015 -- correct mistake in trcini_medusa

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcini_medusa.F90

    r5739 r5741  
    3636   LOGICAL, PUBLIC ::                  & 
    3737      bocalccd = .TRUE. 
     38   !! JPALM (14/09/15) 
     39   LOGICAL, PUBLIC ::                  & 
     40      ln_ccd = .FALSE. 
     41 
    3842   INTEGER ::                          & 
    3943      numccd 
     
    296300      !! * arguments 
    297301      INTEGER, INTENT( in  ) ::   kt   ! ocean time step 
    298          !! JPALM (14/09/15) 
    299       LOGICAL, PUBLIC ::                  & 
    300       ln_ccd = .FALSE. 
    301302 
    302303      !!--------------------------------------------------------------------- 
     
    307308      !!!! JPALM -- 14-09-2015 --  
    308309      !!!!       -- to test on ORCA2 with Christian, no file available, so initiate to 0  
    309       IF ln_ccd THEN 
     310      IF (ln_ccd) THEN 
    310311         IF(lwp) WRITE(numout,*) ' ' 
    311312         IF(lwp) WRITE(numout,*) ' **** Routine trc_ini_medusa_ccd' 
Note: See TracChangeset for help on using the changeset viewer.