Changeset 10640 for NEMO/releases/release-4.0/src/OCE/DIA/dia25h.F90
- Timestamp:
- 2019-02-06T13:33:10+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/releases/release-4.0/src/OCE/DIA/dia25h.F90
r10499 r10640 100 100 un_25h (:,:,:) = ub (:,:,:) 101 101 vn_25h (:,:,:) = vb (:,:,:) 102 wn_25h (:,:,:) = wn (:,:,:)103 102 avt_25h (:,:,:) = avt (:,:,:) 104 103 avm_25h (:,:,:) = avm (:,:,:) … … 148 147 ! local variable for debugging 149 148 ll_print = ll_print .AND. lwp 149 150 ! wn_25h could not be initialised in dia_25h_init, so we do it here instead 151 IF( kt == nn_it000 ) THEN 152 wn_25h(:,:,:) = wn(:,:,:) 153 ENDIF 150 154 151 155 ! Sum of 25 hourly instantaneous values to give a 25h mean from 24hours every day … … 223 227 CALL iom_put("vomecrty25h", zw3d ) ! j-current 224 228 zw3d(:,:,:) = wn_25h(:,:,:)*wmask(:,:,:) + zmdi*(1.0-tmask(:,:,:)) 225 CALL iom_put("vo mecrtz25h", zw3d ) ! k-current229 CALL iom_put("vovecrtz25h", zw3d ) ! k-current 226 230 ! Write vertical physics 227 231 zw3d(:,:,:) = avt_25h(:,:,:)*wmask(:,:,:) + zmdi*(1.0-tmask(:,:,:))
Note: See TracChangeset
for help on using the changeset viewer.