- 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/dynzad.F90
r8168 r8197 60 60 INTEGER, INTENT(in) :: kt ! ocean time-step inedx 61 61 ! 62 INTEGER :: id_dia_vrt_zad_int = 61 ! TODO remove once flags set properly 63 INTEGER :: id_dia_vrt_zad_mean = 62 ! TODO remove once flags set properly 62 CHARACTER(len=3) :: id_vrt_dia_zad = "zad" ! TODO remove once flags set properly 64 63 INTEGER :: ji, jj, jk ! dummy loop indices 65 64 REAL(wp), POINTER, DIMENSION(:,:,:) :: zwuw , zwvw … … 145 144 & tab3d_2=va, clinfo2= ' Va: ', mask2=vmask, clinfo3='dyn' ) 146 145 ! 147 IF ( ( id_dia_vrt_zad_int == 61 ) .or. ( id_dia_vrt_zad_mean == 62 )) THEN146 IF ( id_vrt_dia_zad == "zad" ) THEN 148 147 ! TODO - remove kt only used for validation 149 CALL dyn_vrt_dia_3d(zua, zva, id_ dia_vrt_zad_int, id_dia_vrt_zad_mean, kt)148 CALL dyn_vrt_dia_3d(zua, zva, id_vrt_dia_zad, kt) 150 149 END IF 151 150 !
Note: See TracChangeset
for help on using the changeset viewer.