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 3794 – NEMO

Changeset 3794


Ignore:
Timestamp:
2013-02-10T20:13:47+01:00 (10 years ago)
Author:
gm
Message:

CMIP_IPSL branch: #960 : correct bug in trdmld & trdmld_trc (time step control)

Location:
branches/CMIP5_IPSL/NEMO
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • branches/CMIP5_IPSL/NEMO/OPA_SRC/TRD/trdmld.F90

    r1846 r3794  
    744744      ! ------------------------------------------------- 
    745745 
    746       IF( ( lk_trdmld ) .AND. ( MOD( nitend, nn_trd ) /= 0 ) ) THEN 
     746      IF( ( lk_trdmld ) .AND. ( MOD( nitend-nit000+1, nn_trd ) /= 0 ) ) THEN 
    747747         WRITE(numout,cform_err) 
    748748         WRITE(numout,*) '                Your nitend parameter, nitend = ', nitend 

  • branches/CMIP5_IPSL/NEMO/TOP_SRC/TRP/trdmld_trc.F90

    r1846 r3794  
    12561256#  endif 
    12571257 
    1258       IF( ( lk_trdmld_trc ) .AND. ( MOD( nitend, ntrd_trc ) /= 0 ) ) THEN 
     1258      IF( ( lk_trdmld_trc ) .AND. ( MOD( nitend-nittrc000+1, ntrd_trc ) /= 0 ) ) THEN 
    12591259         WRITE(numout,cform_err) 
    12601260         WRITE(numout,*) '                Your nitend parameter, nitend = ', nitend 
Note: See TracChangeset for help on using the changeset viewer.