- Timestamp:
- 2017-03-30T11:39:38+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/GO6_dyn_vrt_diag/NEMOGCM/NEMO/OPA_SRC/DYN/dynzdf.F90
r6486 r7845 27 27 USE wrk_nemo ! Memory Allocation 28 28 USE timing ! Timing 29 USE divcur ! for dyn_vrt_dia_3d 29 30 30 31 IMPLICIT NONE … … 58 59 INTEGER, INTENT( in ) :: kt ! ocean time-step index 59 60 ! 61 INTEGER :: id_dia_vrt_zdf_int = 1 ! TODO remove once flags set properly 62 INTEGER :: id_dia_vrt_zdf_mean = 1 ! TODO remove once flags set properly 60 63 REAL(wp), POINTER, DIMENSION(:,:,:) :: ztrdu, ztrdv 61 64 !!--------------------------------------------------------------------- … … 68 71 ENDIF 69 72 70 IF ( l_trddyn )THEN ! temporary save of ta and sa trends73 IF ( ( l_trddyn ) .or. ( id_dia_vrt_zdf_int == 1 ) .or. ( id_dia_vrt_zdf_mean == 1 ) ) THEN ! temporary save of ta and sa trends 71 74 CALL wrk_alloc( jpi, jpj, jpk, ztrdu, ztrdv ) 72 75 ztrdu(:,:,:) = ua(:,:,:) … … 88 91 END SELECT 89 92 90 IF ( l_trddyn )THEN ! save the vertical diffusive trends for further diagnostics93 IF ( ( l_trddyn ) .or. ( id_dia_vrt_zdf_int == 1 ) .or. ( id_dia_vrt_zdf_mean == 1 ) ) THEN ! save the vertical diffusive trends for further diagnostics 91 94 ztrdu(:,:,:) = ua(:,:,:) - ztrdu(:,:,:) 92 95 ztrdv(:,:,:) = va(:,:,:) - ztrdv(:,:,:) 96 97 ! Calculate dia_vor_int & dia_vor_mn if required. 98 IF ( ( id_dia_vrt_zdf_int == 1 ) .or. ( id_dia_vrt_zdf_mean == 1 ) ) THEN 99 CALL dyn_vrt_dia_3d(ztrdu, ztrdv, id_dia_vrt_zdf_int, id_dia_vrt_zdf_mean) 100 END IF 101 93 102 CALL trd_dyn( ztrdu, ztrdv, jpdyn_zdf, kt ) 94 103 CALL wrk_dealloc( jpi, jpj, jpk, ztrdu, ztrdv )
Note: See TracChangeset
for help on using the changeset viewer.