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 1334 for trunk/NEMO/LIM_SRC_2 – NEMO

Changeset 1334 for trunk/NEMO/LIM_SRC_2


Ignore:
Timestamp:
2009-03-03T15:07:48+01:00 (15 years ago)
Author:
smasson
Message:

complete work on time origin in outputs (ticket:335) + downward vertical axis (ticket:357)

File:
1 edited

Legend:

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

    r1312 r1334  
    103103         ENDIF 
    104104         zout     = nwrite * rdt_ice / nn_fsbc 
    105          niter    = 0 
     105         niter    = nit000 - 1 
    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, 0, zjulian, rdt_ice, nhorid, nice , domain_id=nidom) 
    113          CALL histvert( nice, "deptht", "Vertical T levels", "m", 1, zdept, ndepid) 
     112            &           1, jpi, 1, jpj, nit000-1, zjulian, rdt_ice, nhorid, nice , domain_id=nidom) 
     113         CALL histvert( nice, "deptht", "Vertical T levels", "m", 1, zdept, ndepid, "down") 
    114114         CALL wheneq  ( jpij , tmask(:,:,1), 1, 1., ndex51, ndim) 
    115115          
     
    182182      END DO 
    183183       
    184       IF( ( nn_fsbc * niter + nit000 - 1 ) >= nitend )   CALL histclo( nice )  
     184      IF( ( nn_fsbc * niter ) >= nitend )   CALL histclo( nice )  
    185185      ! 
    186186   END SUBROUTINE lim_wri_2 
Note: See TracChangeset for help on using the changeset viewer.