Changeset 15634
- Timestamp:
- 2022-01-12T11:44:02+01:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/NEMO_4.0.4_CO9_shelf_climate/src/OCE/TRA/tradwl.F90
r15445 r15634 70 70 !! 71 71 !!---------------------------------------------------------------------- 72 USE oce, ONLY : ztrdt => ua ! use ua as 3D workspace 73 USE oce, ONLY : ztrds => va ! use va as 3D workspace 72 73 !JT USE oce, ONLY : ztrdt => ua ! use ua as 3D workspace 74 !JT USE oce, ONLY : ztrds => va ! use va as 3D workspace 75 74 76 !! 75 77 INTEGER, INTENT(in) :: kt ! ocean time-step … … 103 105 ENDIF 104 106 105 IF( l_trdtra ) THEN ! Save ta and sa trends106 ztrdt(:,:,:) = tsa(:,:,:,jp_tem)107 ztrds(:,:,:) = 0.e0108 ENDIF107 !JT IF( l_trdtra ) THEN ! Save ta and sa trends 108 !JT ztrdt(:,:,:) = tsa(:,:,:,jp_tem) 109 !JT ztrds(:,:,:) = 0.e0 110 !JT ENDIF 109 111 !-------------------------------------------------------------------- 110 112 ! Set transmissivity … … 198 200 199 201 200 IF( l_trdtra ) THEN ! qsr tracers trends saved for diagnostics201 ztrdt(:,:,:) = tsa(:,:,:,jp_tem) - ztrdt(:,:,:)202 !CEODCALL trd_mod( ztrdt, ztrds, jptra_trd_qsr, 'TRA', kt )203 ENDIF202 !JT IF( l_trdtra ) THEN ! qsr tracers trends saved for diagnostics 203 !JT ztrdt(:,:,:) = tsa(:,:,:,jp_tem) - ztrdt(:,:,:) 204 !JT !CEODCALL trd_mod( ztrdt, ztrds, jptra_trd_qsr, 'TRA', kt ) 205 !JT ENDIF 204 206 ! ! print mean trends (used for debugging) 205 207 IF(ln_ctl) CALL prt_ctl( tab3d_1=tsa(:,:,:,jp_tem), clinfo1=' qsr - Ta: ', mask1=tmask, clinfo3='tra-ta' )
Note: See TracChangeset
for help on using the changeset viewer.