- 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/dynvor.F90
r8168 r8197 561 561 REAL(wp), INTENT(inout), DIMENSION(jpi,jpj,jpk) :: pva ! total v-trend 562 562 !! 563 INTEGER :: id_dia_vrt_vor_int = 51 ! TODO remove once flags set properly 564 INTEGER :: id_dia_vrt_vor_mn = 52 ! TODO remove once flags set properly 563 CHARACTER(len=3) :: id_vrt_dia_vor = "vor" ! TODO remove once flags set properly 565 564 INTEGER :: ji, jj, jk ! dummy loop indices 566 565 INTEGER :: ierr ! local integer … … 707 706 END DO ! End of slab 708 707 ! ! =============== 709 IF ( ( id_dia_vrt_vor_int == 51 ) .or. ( id_dia_vrt_vor_mn == 52 )) THEN708 IF ( id_vrt_dia_vor == "vor" ) THEN 710 709 ! TODO - remove kt only used for validation 711 CALL dyn_vrt_dia_3d(zua, zva, id_ dia_vrt_vor_int, id_dia_vrt_vor_mn, kt)710 CALL dyn_vrt_dia_3d(zua, zva, id_vrt_dia_vor, kt) 712 711 END IF 713 712 !
Note: See TracChangeset
for help on using the changeset viewer.