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 14255 for NEMO/trunk/src/TOP/trcwri.F90 – NEMO

Ignore:
Timestamp:
2021-01-04T12:35:00+01:00 (3 years ago)
Author:
cetlod
Message:

trunk : consolidation of OFFLINE with key_qco ; use the ORCA2_OFF_TRC configuration for that purpose

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/TOP/trcwri.F90

    r14239 r14255  
    2828   PUBLIC trc_wri       
    2929 
     30   !! * Substitutions 
     31#  include "do_loop_substitute.h90" 
     32#  include "domzgr_substitute.h90" 
     33 
    3034CONTAINS 
    3135 
     
    3943      INTEGER, INTENT( in )     :: Kmm  ! time level indices 
    4044      ! 
    41       INTEGER                   :: jn 
     45      INTEGER                   :: jk, jn 
    4246      CHARACTER (len=20)        :: cltra 
    4347      CHARACTER (len=40)        :: clhstnam 
    4448      INTEGER ::   inum = 11            ! temporary logical unit 
     49      REAL(wp), DIMENSION(jpi,jpj,jpk) ::   z3d   ! 3D workspace 
    4550      !!--------------------------------------------------------------------- 
    4651      ! 
     
    5358           WRITE(inum,*) clhstnam 
    5459           CLOSE(inum) 
    55         ENDIF 
     60         ENDIF 
    5661 
    57        ! Output of initial vertical scale factor 
    58        CALL iom_put( "e3t_0", e3t_0(:,:,:) ) 
    59        CALL iom_put( "e3u_0", e3u_0(:,:,:) ) 
    60        CALL iom_put( "e3v_0", e3v_0(:,:,:) ) 
    61        ! 
    62 #if ! defined key_qco 
    63        CALL iom_put( "e3t" , e3t(:,:,:,Kmm) ) 
    64        CALL iom_put( "e3u" , e3u(:,:,:,Kmm) ) 
    65        CALL iom_put( "e3v" , e3v(:,:,:,Kmm) ) 
    66 #endif  
    67        ! 
     62         ! Output of initial vertical scale factor 
     63         CALL iom_put( "e3t_0", e3t_0(:,:,:) ) 
     64         CALL iom_put( "e3u_0", e3u_0(:,:,:) ) 
     65         CALL iom_put( "e3v_0", e3v_0(:,:,:) ) 
     66         ! 
     67         IF( .NOT.ln_linssh )  CALL iom_put( "ssh" , ssh(:,:,Kmm) )              ! sea surface height 
     68         ! 
     69         IF ( iom_use("e3t") ) THEN  ! time-varying e3t 
     70            DO jk = 1, jpk 
     71               z3d(:,:,jk) =  e3t(:,:,jk,Kmm) 
     72            END DO 
     73            CALL iom_put( "e3t", z3d(:,:,:) ) 
     74         ENDIF 
     75         IF ( iom_use("e3u") ) THEN                         ! time-varying e3u 
     76            DO jk = 1, jpk 
     77               z3d(:,:,jk) =  e3u(:,:,jk,Kmm) 
     78            END DO 
     79            CALL iom_put( "e3u", z3d(:,:,:) ) 
     80         ENDIF 
     81         IF ( iom_use("e3v") ) THEN                         ! time-varying e3v 
     82            DO jk = 1, jpk 
     83               z3d(:,:,jk) =  e3v(:,:,jk,Kmm) 
     84            END DO 
     85            CALL iom_put( "e3v", z3d(:,:,:) ) 
     86         ENDIF 
     87         ! 
    6888      ENDIF 
     89      ! 
    6990      ! write the tracer concentrations in the file 
    7091      ! --------------------------------------- 
Note: See TracChangeset for help on using the changeset viewer.