Changeset 34 for trunk/NEMO/OPA_SRC
- Timestamp:
- 2004-02-17T16:07:07+01:00 (20 years ago)
- Location:
- trunk/NEMO/OPA_SRC/TRA
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/TRA/traldf_iso.F90
r32 r34 83 83 zabe1, zabe2, zcof1, zcof2, & ! temporary scalars 84 84 zmsku, zmskv, zbtr, zta, zsa, & 85 #if defined key_traldf_eiv 85 86 zcg1, zcg2, zuwk, zvwk, & 86 87 zuwk1, zvwk1, & 88 #endif 87 89 ztagu, ztagv, zsagu, zsagv 88 90 REAL(wp), DIMENSION(jpi,jpj) :: & 89 91 zdkt, zdk1t, & ! workspace 90 zdks, zdk1s, & 91 zftug, zftvg, & 92 zdks, zdk1s 93 #if defined key_traldf_eiv 94 REAL(wp), DIMENSION(jpi,jpj) :: & 95 zftug, zftvg, & 92 96 zfsug, zfsvg 97 #endif 93 98 REAL(wp), DIMENSION(jpi,jpj,jpk) :: & 94 99 zftv, zfsv ! workspace … … 164 169 END DO 165 170 171 # if defined key_traldf_eiv 166 172 ! ! ---------------------------------------! 167 IF( lk_traldf_eiv ) THEN! Eddy induced vertical advective fluxes !168 !! ---------------------------------------!173 ! ! Eddy induced vertical advective fluxes ! 174 ! ! ---------------------------------------! 169 175 DO jj = 1, jpjm1 170 176 DO ji = 1, fs_jpim1 ! vector opt. … … 192 198 END DO 193 199 END DO 194 ENDIF 200 # endif 195 201 196 202 ! II.4 Second derivative (divergence) and add to the general trend -
trunk/NEMO/OPA_SRC/TRA/trazdf_iso.F90
r32 r34 126 126 ztavg, zsavg, & ! ??? 127 127 zcoef0, zcoef3, & ! ??? 128 zcoef4, z coeg3, zavi,& ! ???128 zcoef4, zavi, & ! ??? 129 129 zbtr, zmku, zmkv, & ! 130 zuwki, zvwki, zuwk, & ! 131 zvwk, ztav, zsav 130 ztav, zsav 132 131 REAL(wp), DIMENSION(jpi,jpk) :: & 133 132 zwd, zws, zwi, & ! ??? … … 136 135 ztfw, zdit, zdjt, zdj1t, & 137 136 zsfw, zdis, zdjs, zdj1s, & 138 zavt , zavs137 zavt 139 138 #if defined key_traldf_eiv || defined key_esopa 140 139 REAL(wp), DIMENSION(jpi,jpk) :: & 141 ztfwg, zsfwg 140 ztfwg, zsfwg, zcoeg3, & 141 zuwk, zvwk, & 142 zuwki, zvwki, zavs 142 143 #endif 143 144 !!--------------------------------------------------------------------- … … 219 220 ztfw(:,jpk) = 0.e0 220 221 zsfw(:,jpk) = 0.e0 221 IF( lk_traldf_eiv ) THEN 222 223 224 225 226 ENDIF 222 #if defined key_traldf_eiv 223 ztfwg(:, 1 ) = 0.e0 224 zsfwg(:, 1 ) = 0.e0 225 ztfwg(:,jpk) = 0.e0 226 zsfwg(:,jpk) = 0.e0 227 #endif 227 228 228 229 ! interior (2=<jk=<jpk-1) … … 276 277 END DO 277 278 279 #if defined key_traldf_eiv 278 280 ! ! ---------------------------------------! 279 IF( lk_traldf_eiv ) THEN! Eddy induced vertical advective fluxes !280 !! ---------------------------------------!281 ! ! Eddy induced vertical advective fluxes ! 282 ! ! ---------------------------------------! 281 283 #if defined key_traldf_c2d || defined key_traldf_c3d 282 284 DO jk = 2, jpkm1 … … 330 332 END DO 331 333 #endif 332 ENDIF 334 335 #endif 333 336 334 337 ! I.5 Divergence of vertical fluxes added to the general tracer trend -
trunk/NEMO/OPA_SRC/TRA/trazdf_iso_vopt.F90
r32 r34 506 506 ztavg, zsavg, & ! temporary scalars 507 507 zcoef0, zcoef3, & ! " " 508 zcoef4, zcoeg3, & ! " " 509 zbtr, zmku, zmkv , & ! " " 510 zuwki, zvwki, zuwk, & ! " " 511 zvwk, ztav, zsav 508 zcoef4, & ! " " 509 zbtr, zmku, zmkv, & ! " " 510 #if defined key_traldf_eiv 511 zcoeg3, & ! " " 512 zuwki, zvwki, & ! " " 513 zuwk, zsav, & ! " " 514 #endif 515 zvwk, ztav 512 516 REAL(wp), DIMENSION(jpi,jpj,jpk) :: & 513 517 zwz, zwt, ztfw, zsfw ! temporary workspace arrays … … 604 608 END DO 605 609 610 #if defined key_traldf_eiv 606 611 ! ! ---------------------------------------! 607 IF( lk_traldf_eiv ) THEN! Eddy induced vertical advective fluxes !608 !! ---------------------------------------!612 ! ! Eddy induced vertical advective fluxes ! 613 ! ! ---------------------------------------! 609 614 zwx(:,:, 1 ) = 0.e0 610 615 zwy(:,:, 1 ) = 0.e0 … … 650 655 END DO 651 656 END DO 652 ENDIF 657 #endif 653 658 654 659 ! I.5 Divergence of vertical fluxes added to the general tracer trend
Note: See TracChangeset
for help on using the changeset viewer.