- 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/dynkeg.F90
r7845 r8168 75 75 INTEGER, INTENT( in ) :: kscheme ! =0/1 type of KEG scheme 76 76 ! 77 INTEGER :: id_dia_vrt_keg_int =1 ! TODO remove once flags set properly78 INTEGER :: id_dia_vrt_keg_mean = 1! TODO remove once flags set properly79 INTEGER :: ji, jj, jk! dummy loop indices80 REAL(wp) :: zu, zv! temporary scalars77 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 79 INTEGER :: ji, jj, jk ! dummy loop indices 80 REAL(wp) :: zu, zv ! temporary scalars 81 81 REAL(wp), POINTER, DIMENSION(:,:,:) :: zhke, zhkei, zhkej 82 82 REAL(wp), POINTER, DIMENSION(:,:,:) :: ztrdu, ztrdv … … 148 148 END DO 149 149 ! 150 IF ( ( id_dia_vrt_keg_int == 1 ) .or. ( id_dia_vrt_keg_mean == 1 ) ) THEN 151 CALL dyn_vrt_dia_3d(zhkei, zhkej, id_dia_vrt_keg_int, id_dia_vrt_keg_mean) 150 IF ( ( id_dia_vrt_keg_int == 21 ) .or. ( id_dia_vrt_keg_mean == 22 ) ) THEN 151 ! 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) 152 153 END IF 153 154 !
Note: See TracChangeset
for help on using the changeset viewer.