Changeset 11480 for NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/OCE/TRD/trdvor.F90
- Timestamp:
- 2019-08-29T11:23:25+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/OCE/TRD/trdvor.F90
r10946 r11480 189 189 190 190 ! Average except for Beta.V 191 zudpvor(:,:) = zudpvor(:,:) * r1_hu _n(:,:)192 zvdpvor(:,:) = zvdpvor(:,:) * r1_hv _n(:,:)191 zudpvor(:,:) = zudpvor(:,:) * r1_hu(:,:,Kmm) 192 zvdpvor(:,:) = zvdpvor(:,:) * r1_hv(:,:,Kmm) 193 193 194 194 ! Curl … … 276 276 END DO 277 277 ! Average of the Curl and Surface mask 278 vortrd(:,:,jpvor_bev) = vortrd(:,:,jpvor_bev) * r1_hu _n(:,:) * fmask(:,:,1)278 vortrd(:,:,jpvor_bev) = vortrd(:,:,jpvor_bev) * r1_hu(:,:,Kmm) * fmask(:,:,1) 279 279 ENDIF 280 280 ! 281 281 ! Average 282 zudpvor(:,:) = zudpvor(:,:) * r1_hu _n(:,:)283 zvdpvor(:,:) = zvdpvor(:,:) * r1_hv _n(:,:)282 zudpvor(:,:) = zudpvor(:,:) * r1_hu(:,:,Kmm) 283 zvdpvor(:,:) = zvdpvor(:,:) * r1_hv(:,:,Kmm) 284 284 ! 285 285 ! Curl … … 342 342 END DO 343 343 344 zuu(:,:) = zuu(:,:) * r1_hu _n(:,:)345 zvv(:,:) = zvv(:,:) * r1_hv _n(:,:)344 zuu(:,:) = zuu(:,:) * r1_hu(:,:,Kmm) 345 zvv(:,:) = zvv(:,:) * r1_hv(:,:,Kmm) 346 346 347 347 ! Curl
Note: See TracChangeset
for help on using the changeset viewer.