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 1656 for trunk/NEMO/TOP_SRC/trcwri.F90 – NEMO

Ignore:
Timestamp:
2009-10-14T16:30:35+02:00 (14 years ago)
Author:
cetlod
Message:

Creation of the date.file in OFFLINE mode, see ticket:551

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/TOP_SRC/trcwri.F90

    r1457 r1656  
    1515   USE trc 
    1616   USE iom 
     17#if defined key_off_tra 
     18   USE oce_trc 
     19   USE dianam 
     20#endif 
    1721 
    1822   IMPLICIT NONE 
     
    4044      INTEGER               :: jn 
    4145      CHARACTER (len=20)    :: cltra 
     46#if defined key_off_tra 
     47      CHARACTER (len=40) :: clhstnam 
     48      INTEGER ::   inum = 11            ! temporary logical unit 
     49#endif 
     50 
    4251      !!--------------------------------------------------------------------- 
    4352  
     
    4655 
    4756      CALL iom_setkt( kt + ndttrc - 1 ) ! set the passive tracer time step 
     57 
     58#if defined key_off_tra 
     59      IF( kt == nittrc000 ) THEN 
     60        ! WRITE root name in date.file for use by postpro 
     61         IF(lwp) THEN 
     62            CALL dia_nam( clhstnam, nwritetrc,' ' ) 
     63            CALL ctl_opn( inum, 'date.file', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp, narea ) 
     64            WRITE(inum,*) clhstnam 
     65            CLOSE(inum) 
     66         ENDIF 
     67      ENDIF 
     68#endif 
     69 
    4870 
    4971      ! write the tracer concentrations in the file 
Note: See TracChangeset for help on using the changeset viewer.