- Timestamp:
- 2017-06-21T11:39:54+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/GO6_dyn_vrt_diag/NEMOGCM/NEMO/OPA_SRC/DYN/dynzdf_imp.F90
r8168 r8197 67 67 REAL(wp), INTENT(in) :: p2dt ! vertical profile of tracer time-step 68 68 !! 69 CHARACTER(len=3) :: id_vrt_dia_zdf = "zdf" ! TODO remove once flags set properly 69 70 INTEGER :: ji, jj, jk ! dummy loop indices 70 71 INTEGER :: ikbu, ikbv ! local integers 71 INTEGER :: id_dia_vrt_zdf_int = 71 ! TODO remove once flags set properly72 INTEGER :: id_dia_vrt_zdf_mn = 72 ! TODO remove once flags set properly73 72 REAL(wp) :: z1_p2dt, zcoef, zzwi, zzws, zrhs ! local scalars 74 73 REAL(wp) :: ze3ua, ze3va … … 262 261 END DO 263 262 264 IF ( ( .NOT. lk_dynspg_ts ) .OR. & 265 & ( ( id_dia_vrt_zdf_int == 71 ) .OR. ( id_dia_vrt_zdf_mn == 72 ) ) ) THEN 263 IF ( ( .NOT. lk_dynspg_ts ) .OR. ( id_vrt_dia_zdf == "zdf" ) ) THEN 266 264 ! Normalization to obtain the general momentum trend ua 267 265 DO jk = 1, jpkm1 … … 367 365 END DO 368 366 369 IF ( ( .NOT. lk_dynspg_ts ) .OR. & 370 & ( ( id_dia_vrt_zdf_int == 71 ) .OR. ( id_dia_vrt_zdf_mn == 72 ) ) ) THEN 367 IF ( ( .NOT. lk_dynspg_ts ) .OR. ( id_vrt_dia_zdf == "zdf" ) ) THEN 371 368 ! Normalization to obtain the general momentum trend va 372 369 DO jk = 1, jpkm1 … … 377 374 END DO 378 375 END DO 379 IF ( ( id_dia_vrt_zdf_int == 71 ) .OR. (id_dia_vrt_zdf_mn == 72)) THEN376 IF ( id_vrt_dia_zdf == "zdf" ) THEN 380 377 ! TODO - remove kt only used for validation 381 CALL dyn_vrt_dia_3d(zua, zva, id_ dia_vrt_zdf_int, id_dia_vrt_zdf_mn, kt)378 CALL dyn_vrt_dia_3d(zua, zva, id_vrt_dia_zdf, kt) 382 379 END IF 383 380 IF ( .NOT. lk_dynspg_ts ) THEN
Note: See TracChangeset
for help on using the changeset viewer.