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 6173 for branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO – NEMO

Ignore:
Timestamp:
2015-12-28T20:09:32+01:00 (8 years ago)
Author:
jpalmier
Message:

JPALM --28-12-2015-- cleaning

Location:
branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC
Files:
3 edited

Legend:

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

    r6164 r6173  
    3838   !! JPALM (14/09/15) 
    3939   LOGICAL, PUBLIC ::                  & 
    40       ln_ccd = .FALSE. 
     40      ln_ccd = .TRUE. 
    4141 
    4242   INTEGER ::                          & 
  • branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcsed_medusa.F90

    r6164 r6173  
    4242   !! AXY (10/02/09) 
    4343   LOGICAL, PUBLIC ::                  & 
    44       bdustfer = .FALSE. 
     44      bdustfer = .TRUE. 
    4545   REAL(wp), PUBLIC ::                 & 
    4646      sedfeinput = 1.e-9_wp  ,         & 
  • branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/trcrst.F90

    r6164 r6173  
    8585      ! except if we write tracer restart files every tracer time step or if a tracer restart file was writen at nitend - 2*nn_dttrc + 1 
    8686      IF( kt == nitrst - 2*nn_dttrc .OR. nstock == nn_dttrc .OR. ( kt == nitend - nn_dttrc .AND. .NOT. lrst_trc ) ) THEN 
    87         ! IF ( ln_rstdate ) THEN 
    88         !    CALL ju2ymds( fjulday + rdttra(1) / rday, iyear, imonth, iday, zsec ) 
    89         !    WRITE(clkt, '(i4.4,2i2.2)') iyear, imonth, iday 
    90         ! ELSE 
     87         IF ( ln_rstdate ) THEN 
     88            !! JPALM -- 22-12-2015 -- modif to get the good date on restart trc 
     89            !file name 
     90            !!                     -- the condition to open the rst file is not 
     91            !the same than for the dynamic rst. 
     92            !!                     -- here it - for an obscure reason - is open 
     93            !2 time-step before the restart writing process 
     94            !!                     instead of 1. 
     95            !!                     -- i am not sure if someone forgot +1 in the 
     96            !if loop condition as 
     97            !!                     it is writen in all comments nitrst - 
     98            !2*nn_dttrc + 1 and the condition is nitrst - 2*nn_dttrc 
     99            !!                     -- nevertheless we didn't wanted to broke 
     100            !something already working  
     101            !!                     and just adapted the part we added. 
     102            !!                     -- So instead of calling ju2ymds( fjulday + 
     103            !(rdttra(1)) .... 
     104            !!                     we call ju2ymds( fjulday + (2*rdttra(1)) 
     105            !..... 
     106            !!--------------------------------------------------------------------       
     107            CALL ju2ymds( fjulday + (2*rdttra(1)) / rday, iyear, imonth, iday, 
     108zsec ) 
     109            WRITE(clkt, '(i4.4,2i2.2)') iyear, imonth, iday 
     110         ELSE 
    91111            ! beware of the format used to write kt (default is i8.8, that should be large enough) 
    92112            IF( nitrst > 1.0e9 ) THEN   ;   WRITE(clkt,*       ) nitrst 
    93113            ELSE                        ;   WRITE(clkt,'(i8.8)') nitrst 
    94114            ENDIF 
    95         ! ENDIF 
     115        ENDIF 
    96116         ! create the file 
    97117         IF(lwp) WRITE(numout,*) 
Note: See TracChangeset for help on using the changeset viewer.