Changeset 9512
- Timestamp:
- 2018-04-27T13:06:25+02:00 (7 years ago)
- Location:
- branches/UKMO/dev_r5518_fix_diag_bitcomp/NEMOGCM/NEMO/OPA_SRC
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_fix_diag_bitcomp/NEMOGCM/NEMO/OPA_SRC/DIA/diaptr.F90
r9207 r9512 102 102 103 103 ! 104 z2d(:,:) = 0._wp 104 105 z3d(:,:,:) = 0._wp 105 106 IF( PRESENT( pvtr ) ) THEN … … 246 247 ! 247 248 IF( iom_use("zotemglo") ) THEN ! i-mean i-k-surface 249 zmask(:,:,:) = 0._wp 250 zts(:,:,:,:) = 0._wp 248 251 DO jk = 1, jpkm1 249 252 DO jj = 1, jpj -
branches/UKMO/dev_r5518_fix_diag_bitcomp/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_eiv.F90
r9502 r9512 177 177 z2d(:,:) = z2d(:,:) + z3d(:,:,jk) 178 178 END DO 179 CALL lbc_lnk( z3d _T, 'U', -1. )179 CALL lbc_lnk( z3d, 'U', -1. ) 180 180 CALL iom_put( "ueiv_masstr", z3d ) ! mass transport in i-direction 181 181 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.