Changeset 3794


Ignore:
Timestamp:
2013-02-10T20:13:47+01:00 (8 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.