Changeset 14255 for NEMO/trunk/src/TOP/trcwri.F90
- Timestamp:
- 2021-01-04T12:35:00+01:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/TOP/trcwri.F90
r14239 r14255 28 28 PUBLIC trc_wri 29 29 30 !! * Substitutions 31 # include "do_loop_substitute.h90" 32 # include "domzgr_substitute.h90" 33 30 34 CONTAINS 31 35 … … 39 43 INTEGER, INTENT( in ) :: Kmm ! time level indices 40 44 ! 41 INTEGER :: j n45 INTEGER :: jk, jn 42 46 CHARACTER (len=20) :: cltra 43 47 CHARACTER (len=40) :: clhstnam 44 48 INTEGER :: inum = 11 ! temporary logical unit 49 REAL(wp), DIMENSION(jpi,jpj,jpk) :: z3d ! 3D workspace 45 50 !!--------------------------------------------------------------------- 46 51 ! … … 53 58 WRITE(inum,*) clhstnam 54 59 CLOSE(inum) 55 ENDIF60 ENDIF 56 61 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 ! 68 88 ENDIF 89 ! 69 90 ! write the tracer concentrations in the file 70 91 ! ---------------------------------------
Note: See TracChangeset
for help on using the changeset viewer.