Changeset 14806 for NEMO/branches/2021/dev_r14273_HPC-02_Daley_Tiling/src/OCE/TRA/tradmp.F90

Timestamp:

2021-05-07T13:44:43+02:00 (3 years ago)

Author:

hadcv

Message:

#2600: Merge in trunk changes to r14778

File:

• NEMO/branches/2021/dev_r14273_HPC-02_Daley_Tiling/src/OCE/TRA/tradmp.F90 (modified) (2 diffs)

NEMO/branches/2021/dev_r14273_HPC-02_Daley_Tiling/src/OCE/TRA/tradmp.F90

@@ -101 +101 @@
       IF( ln_timing )   CALL timing_start('tra_dmp')
       !
-      IF( l_trdtra )   THEN                    !* Save ta and sa trends
+      IF( l_trdtra .OR. iom_use('hflx_dmp_cea') .OR. iom_use('sflx_dmp_cea') ) THEN   !* Save ta and sa trends
          ALLOCATE( ztrdts(jpi,jpj,jpk,jpts) )
          ztrdts(:,:,:,:) = pts(:,:,:,:,Krhs)
@@ -139 +139 @@
          !
       END SELECT
+      !
+      ! outputs (clem trunk)
+      IF( iom_use('hflx_dmp_cea') )       &
+         &   CALL iom_put('hflx_dmp_cea', &
+         &   SUM( ( pts(:,:,:,jp_tem,Krhs) - ztrdts(:,:,:,jp_tem) ) * e3t(:,:,:,Kmm), dim=3 ) * rcp * rho0 ) ! W/m2
+      IF( iom_use('sflx_dmp_cea') )       &
+         &   CALL iom_put('sflx_dmp_cea', &
+         &   SUM( ( pts(:,:,:,jp_sal,Krhs) - ztrdts(:,:,:,jp_sal) ) * e3t(:,:,:,Kmm), dim=3 ) * rho0 )       ! g/m2/s
       !
       IF( l_trdtra )   THEN       ! trend diagnostic