Changeset 15501 for NEMO/branches/UKMO/NEMO_4.0.4_CO9_shelf_climate

Timestamp:

2021-11-14T20:40:30+01:00 (3 years ago)

Author:

hadjt

Message:

DIA/diaharm_fast.F90

Working version.
Tidal residual output, i.e. ssh/u2d/v2d etc offset

File:

• NEMO/branches/UKMO/NEMO_4.0.4_CO9_shelf_climate/src/OCE/DIA/diaharm_fast.F90 (modified) (2 diffs)

NEMO/branches/UKMO/NEMO_4.0.4_CO9_shelf_climate/src/OCE/DIA/diaharm_fast.F90

@@ -808 +808 @@
           enddo
 
-         !tmp_name=TRIM(suffix)//'_tidal_anal_offset'
-         !IF( iom_use(TRIM(tmp_name)) )  THEN
-         !   IF(lwp) WRITE(numout,*) "harm_ana_out: iom_put: ",TRIM(tmp_name)
-         !   CALL iom_put( TRIM(tmp_name), g_cosamp2D( 0,:,:,jgrid))
-         !ELSE
-         !   IF(lwp) WRITE(numout,*) "harm_ana_out: not requested: ",TRIM(tmp_name)
-         !ENDIF
+         suffix = TRIM( m_varName2d( m_posi_2d(jgrid) ) )
+         tmp_name='TA_'//TRIM(suffix)//'_off'
+         IF( iom_use(TRIM(tmp_name)) )  THEN
+            IF(lwp) WRITE(numout,*) "harm_ana_out: iom_put: ",TRIM(tmp_name)
+            CALL iom_put( TRIM(tmp_name), g_cosamp2D( 0,:,:,jgrid))
+         ELSE
+            IF(lwp) WRITE(numout,*) "harm_ana_out: not requested: ",TRIM(tmp_name)
+         ENDIF
 
       enddo
@@ -872 +873 @@
           enddo             ! jh 
 
-         !tmp_name=TRIM(suffix)//'_tidal_anal_offset'
-         !IF( iom_use(TRIM(tmp_name)) )  THEN
-         !   IF(lwp) WRITE(numout,*) "harm_ana_out: iom_put: ",TRIM(tmp_name)
-         !   CALL iom_put( TRIM(tmp_name), g_cosamp3D( 0,:,:,:,jgrid))
-         !ELSE
-         !   IF(lwp) WRITE(numout,*) "harm_ana_out: not requested: ",TRIM(tmp_name)
-         !ENDIF
+         suffix = TRIM( m_varName3d( m_posi_3d(jgrid) ) )
+         tmp_name='TA_'//TRIM(suffix)//'_off'
+         IF( iom_use(TRIM(tmp_name)) )  THEN
+            IF(lwp) WRITE(numout,*) "harm_ana_out: iom_put: ",TRIM(tmp_name)
+            CALL iom_put( TRIM(tmp_name), g_cosamp3D( 0,:,:,:,jgrid))
+         ELSE
+            IF(lwp) WRITE(numout,*) "harm_ana_out: not requested: ",TRIM(tmp_name)
+         ENDIF
 
       enddo                 ! jgrid
+
+
 !
    END SUBROUTINE harm_ana_out