- 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/dynkeg.F90
r8168 r8197 75 75 INTEGER, INTENT( in ) :: kscheme ! =0/1 type of KEG scheme 76 76 ! 77 INTEGER :: id_dia_vrt_keg_int = 21 ! TODO remove once flags set properly 78 INTEGER :: id_dia_vrt_keg_mean = 22 ! TODO remove once flags set properly 77 CHARACTER(len=3) :: id_vrt_dia_keg = "keg" ! TODO remove once flags set properly 79 78 INTEGER :: ji, jj, jk ! dummy loop indices 80 79 REAL(wp) :: zu, zv ! temporary scalars … … 148 147 END DO 149 148 ! 150 IF ( ( id_dia_vrt_keg_int == 21 ) .or. ( id_dia_vrt_keg_mean == 22 )) THEN149 IF ( id_vrt_dia_keg == "keg" ) THEN 151 150 ! TODO - remove kt only used for validation 152 CALL dyn_vrt_dia_3d(zhkei, zhkej, id_ dia_vrt_keg_int, id_dia_vrt_keg_mean, kt)151 CALL dyn_vrt_dia_3d(zhkei, zhkej, id_vrt_dia_keg, kt) 153 152 END IF 154 153 !
Note: See TracChangeset
for help on using the changeset viewer.