- 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/dynzad.F90
r7845 r8168 60 60 INTEGER, INTENT(in) :: kt ! ocean time-step inedx 61 61 ! 62 INTEGER :: id_dia_vrt_zad_int = 1 ! TODO remove once flags set properly63 INTEGER :: id_dia_vrt_zad_mean = 1! TODO remove once flags set properly64 INTEGER :: ji, jj, jk ! dummy loop indices62 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 64 INTEGER :: ji, jj, jk ! dummy loop indices 65 65 REAL(wp), POINTER, DIMENSION(:,:,:) :: zwuw , zwvw 66 66 REAL(wp), POINTER, DIMENSION(:,: ) :: zww … … 145 145 & tab3d_2=va, clinfo2= ' Va: ', mask2=vmask, clinfo3='dyn' ) 146 146 ! 147 IF ( ( id_dia_vrt_zad_int == 1 ) .or. ( id_dia_vrt_zad_mean == 1 ) ) THEN 148 CALL dyn_vrt_dia_3d(zua, zva, id_dia_vrt_zad_int, id_dia_vrt_zad_mean) 147 IF ( ( id_dia_vrt_zad_int == 61 ) .or. ( id_dia_vrt_zad_mean == 62 ) ) THEN 148 ! 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) 149 150 END IF 150 151 !
Note: See TracChangeset
for help on using the changeset viewer.