- Timestamp:
- 2017-06-13T18:50:51+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
r7885 r8168 69 69 INTEGER :: ji, jj, jk ! dummy loop indices 70 70 INTEGER :: ikbu, ikbv ! local integers 71 INTEGER :: id_dia_vrt_zdf_int =1 ! TODO remove once flags set properly72 INTEGER :: id_dia_vrt_zdf_m ean = 1! TODO remove once flags set properly71 INTEGER :: id_dia_vrt_zdf_int = 71 ! TODO remove once flags set properly 72 INTEGER :: id_dia_vrt_zdf_mn = 72 ! TODO remove once flags set properly 73 73 REAL(wp) :: z1_p2dt, zcoef, zzwi, zzws, zrhs ! local scalars 74 74 REAL(wp) :: ze3ua, ze3va … … 262 262 END DO 263 263 264 IF ( ( .NOT. lk_dynspg_ts ) .OR. & 265 & ( ( id_dia_vrt_zdf_int == 71 ) .OR. ( id_dia_vrt_zdf_mn == 72 ) ) ) THEN 264 266 ! Normalization to obtain the general momentum trend ua 265 IF ( ( .NOT. lk_dynspg_ts ) .OR. &266 & ( ( id_dia_vrt_zdf_int == 1 ) .OR. ( id_dia_vrt_zdf_mean == 1 ) ) ) THEN267 267 DO jk = 1, jpkm1 268 268 DO jj = 2, jpjm1 … … 367 367 END DO 368 368 369 IF ( ( .NOT. lk_dynspg_ts ) .OR. & 370 & ( ( id_dia_vrt_zdf_int == 71 ) .OR. ( id_dia_vrt_zdf_mn == 72 ) ) ) THEN 369 371 ! Normalization to obtain the general momentum trend va 370 IF ( ( .NOT. lk_dynspg_ts ) .OR. &371 & ( ( id_dia_vrt_zdf_int == 1 ) .OR. ( id_dia_vrt_zdf_mean == 1 ) ) ) THEN372 372 DO jk = 1, jpkm1 373 373 DO jj = 2, jpjm1 … … 377 377 END DO 378 378 END DO 379 IF ( ( id_dia_vrt_zdf_int == 1 ) .OR. (id_dia_vrt_zdf_mean == 1) ) THEN 380 CALL dyn_vrt_dia_3d(zua, zva, id_dia_vrt_zdf_int, id_dia_vrt_zdf_mean) 379 IF ( ( id_dia_vrt_zdf_int == 71 ) .OR. (id_dia_vrt_zdf_mn == 72) ) THEN 380 ! 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) 381 382 END IF 382 383 IF ( .NOT. lk_dynspg_ts ) THEN
Note: See TracChangeset
for help on using the changeset viewer.