Changeset 7251
- Timestamp:
- 2016-11-17T14:28:37+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2016/dev_r7233_CMIP6_diags_trunk_version/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfevd.F90
r6140 r7251 17 17 USE dom_oce ! ocean space and time domain variables 18 18 USE zdf_oce ! ocean vertical physics variables 19 USE trd_oce ! trends: ocean variables 20 USE trdtra ! trends manager: tracers 19 21 ! 20 22 USE in_out_manager ! I/O manager … … 111 113 zavt_evd(:,:,:) = avt(:,:,:) - zavt_evd(:,:,:) ! change in avt due to evd 112 114 CALL iom_put( "avt_evd", zavt_evd ) ! output this change 115 IF( l_trdtra ) CALL trd_tra( kt, 'TRA', jp_tem, jptra_evd, zavt_evd ) 113 116 ! 114 117 CALL wrk_dealloc( jpi,jpj,jpk, zavt_evd, zavm_evd )
Note: See TracChangeset
for help on using the changeset viewer.