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 1814 for branches/CMIP5_IPSL/NEMO – NEMO

Ignore:
Timestamp:
2010-03-25T12:26:36+01:00 (14 years ago)
Author:
cetlod
Message:

Correction of bug when restoring passive tracers on closed seas. The
date was badly re-initialized in PISCES when restarting

Location:
branches/CMIP5_IPSL/NEMO/TOP_SRC
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • branches/CMIP5_IPSL/NEMO/TOP_SRC/PISCES/trcrst_pisces.F90

    r1808 r1814  
    263263#if defined key_dtatrc 
    264264      ! Restore close seas values to initial data 
    265       nmonth = 1 
    266       nday   = 1 
    267       CALL trc_dta( nittrc000)  
     265      CALL trc_dta( nittrc000 )  
    268266      DO jn = 1, jptra 
    269267         IF( lutini(jn) ) THEN 

  • branches/CMIP5_IPSL/NEMO/TOP_SRC/trcini.F90

    r1745 r1814  
    122122         trb(:,:,:,:) = trn(:,:,:,:) 
    123123      ELSE 
     124         ! 
    124125         CALL trc_rst_read      ! restart from a file 
    125 #if defined key_off_tra 
    126          CALL day_init          ! calendar 
    127 #endif 
     126         ! 
    128127      ENDIF 
    129128 

  • branches/CMIP5_IPSL/NEMO/TOP_SRC/trcrst.F90

    r1808 r1814  
    3333   USE trcrst_c14b     ! C14 bomb restart 
    3434   USE trcrst_my_trc   ! MY_TRC   restart 
    35  
     35#if defined key_off_tra 
     36    USE daymod 
     37#endif 
    3638   IMPLICIT NONE 
    3739   PRIVATE 
    … …  
    277279           WRITE(numout,*) 
    278280         ENDIF 
     281         ! 
     282         CALL day_init          ! compute calendar 
     283         ! 
    279284#endif 
    280285 
Note: See TracChangeset for help on using the changeset viewer.