Changeset 14717 for NEMO/releases/r4.0/r4.0-HEAD/src/OCE/TRA/tradmp.F90
- Timestamp:
- 2021-04-16T11:42:56+02:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/releases/r4.0/r4.0-HEAD/src/OCE/TRA/tradmp.F90
r11536 r14717 99 99 IF( ln_timing ) CALL timing_start('tra_dmp') 100 100 ! 101 IF( l_trdtra ) THEN!* Save ta and sa trends101 IF( l_trdtra .OR. iom_use('hflx_dmp_cea') .OR. iom_use('sflx_dmp_cea') ) THEN !* Save ta and sa trends 102 102 ALLOCATE( ztrdts(jpi,jpj,jpk,jpts) ) 103 103 ztrdts(:,:,:,:) = tsa(:,:,:,:) … … 149 149 END SELECT 150 150 ! 151 ! outputs 152 IF( iom_use('hflx_dmp_cea') ) & 153 & CALL iom_put('hflx_dmp_cea', SUM( ( tsa(:,:,:,jp_tem) - ztrdts(:,:,:,jp_tem) ) * e3t_n(:,:,:), dim=3 ) * rcp * rau0 ) ! W/m2 154 IF( iom_use('sflx_dmp_cea') ) & 155 & CALL iom_put('sflx_dmp_cea', SUM( ( tsa(:,:,:,jp_sal) - ztrdts(:,:,:,jp_sal) ) * e3t_n(:,:,:), dim=3 ) * rau0 ) ! g/m2/s 156 ! 151 157 IF( l_trdtra ) THEN ! trend diagnostic 152 158 ztrdts(:,:,:,:) = tsa(:,:,:,:) - ztrdts(:,:,:,:)
Note: See TracChangeset
for help on using the changeset viewer.