- Timestamp:
- 2018-04-25T10:24:20+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_fix_diag_bitcomp/NEMOGCM/NEMO/OPA_SRC/DIA/diaprod.F90
r7993 r9502 96 96 END DO 97 97 END DO 98 CALL lbc_lnk( z3d(:,:,:), 'U', -1.) 98 99 CALL iom_put( "ut", z3d ) ! product of temperature and zonal velocity at U points 99 100 ENDIF … … 108 109 END DO 109 110 END DO 111 CALL lbc_lnk( z3d(:,:,:), 'V', -1.) 110 112 CALL iom_put( "vt", z3d ) ! product of temperature and meridional velocity at V points 111 113 DO jk = 1, jpkm1 … … 133 135 END DO 134 136 END DO 137 CALL lbc_lnk( z3d(:,:,:), 'W', 1.) 135 138 CALL iom_put( "wt", z3d ) ! product of temperature and vertical velocity at W points 136 139 ENDIF … … 145 148 END DO 146 149 END DO 150 CALL lbc_lnk( z3d(:,:,:), 'U', -1.) 147 151 CALL iom_put( "us", z3d ) ! product of salinity and zonal velocity at U points 148 152 ENDIF … … 157 161 END DO 158 162 END DO 163 CALL lbc_lnk( z3d(:,:,:), 'V', -1.) 159 164 CALL iom_put( "vs", z3d ) ! product of salinity and meridional velocity at V points 160 165 DO jk = 1, jpkm1 … … 182 187 END DO 183 188 END DO 189 CALL lbc_lnk( z3d(:,:,:), 'W', 1.) 184 190 CALL iom_put( "ws", z3d ) ! product of salinity and vertical velocity at W points 185 191 ENDIF … … 194 200 END DO 195 201 END DO 202 CALL lbc_lnk( z3d(:,:,:), 'U', -1.) 196 203 CALL iom_put( "urhop", z3d ) ! product of density and zonal velocity at U points 197 204 ENDIF … … 206 213 END DO 207 214 END DO 215 CALL lbc_lnk( z3d(:,:,:), 'V', -1.) 208 216 CALL iom_put( "vrhop", z3d ) ! product of density and meridional velocity at V points 209 217 ENDIF … … 223 231 END DO 224 232 END DO 233 CALL lbc_lnk( z3d(:,:,:), 'W', 1.) 225 234 CALL iom_put( "wrhop", z3d ) ! product of density and vertical velocity at W points 226 235 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.