Changeset 1339


Ignore:
Timestamp:
2009-03-13T15:12:46+01:00 (12 years ago)
Author:
smasson
Message:

bugfix in lim outputs calendar see ticket:368 (and orginally ticket:335)

Location:
trunk/NEMO
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/LIM_SRC_2/limwri_2.F90

    r1334 r1339  
    103103         ENDIF 
    104104         zout     = nwrite * rdt_ice / nn_fsbc 
    105          niter    = nit000 - 1 
     105         niter    = ( nit000 - 1 ) / nn_fsbc 
    106106         zdept(1) = 0. 
    107107          
     
    110110         CALL dia_nam ( clhstnam, nwrite, 'icemod' ) 
    111111         CALL histbeg ( clhstnam, jpi, glamt, jpj, gphit,    & 
    112             &           1, jpi, 1, jpj, nit000-1, zjulian, rdt_ice, nhorid, nice , domain_id=nidom) 
     112            &           1, jpi, 1, jpj, niter, zjulian, rdt_ice, nhorid, nice , domain_id=nidom) 
    113113         CALL histvert( nice, "deptht", "Vertical T levels", "m", 1, zdept, ndepid, "down") 
    114114         CALL wheneq  ( jpij , tmask(:,:,1), 1, 1., ndex51, ndim) 
  • trunk/NEMO/LIM_SRC_3/limwri.F90

    r1334 r1339  
    141141         ENDIF 
    142142         zout     = nwrite * rdt_ice / nn_fsbc 
    143          niter    = nit000 - 1 
     143         niter    = ( nit000 - 1 ) / nn_fsbc 
    144144         zdept(1) = 0. 
    145145 
     
    147147         zjulian = zjulian - adatrj   !   set calendar origin to the beginning of the experiment 
    148148         CALL dia_nam ( clhstnam, nwrite, 'icemod' ) 
    149          CALL histbeg ( clhstnam, jpi, glamt, jpj, gphit, 1, jpi, 1, jpj, nit000-1, zjulian, rdt_ice,   & 
     149         CALL histbeg ( clhstnam, jpi, glamt, jpj, gphit, 1, jpi, 1, jpj, niter, zjulian, rdt_ice,   & 
    150150            &           nhorid, nice, domain_id=nidom ) 
    151151         CALL histvert( nice, "deptht", "Vertical T levels", "m", 1, zdept, ndepid, "down") 
     
    174174         CALL dia_nam ( clhstnama, nwrite, 'icemoa' ) 
    175175         CALL histbeg ( clhstnama, jpi, glamt, jpj, gphit,         & 
    176             1, jpi, 1, jpj,        & ! zoom 
    177             nit000 -1, zjulian, rdt_ice,   & ! time 
    178             nhorida,               & ! ? linked with horizontal ... 
     176            1, jpi, 1, jpj,            & ! zoom 
     177            niter, zjulian, rdt_ice,   & ! time 
     178            nhorida,                   & ! ? linked with horizontal ... 
    179179            nicea , domain_id=nidom)                  ! file  
    180180         CALL histvert( nicea, "icethi", "L levels",               & 
Note: See TracChangeset for help on using the changeset viewer.