New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 15501 for NEMO/branches/UKMO/NEMO_4.0.4_CO9_shelf_climate/src/OCE/DIA/diaharm_fast.F90 – NEMO

Ignore:
Timestamp:
2021-11-14T20:40:30+01:00 (7 months ago)
Author:
hadjt
Message:

DIA/diaharm_fast.F90

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/UKMO/NEMO_4.0.4_CO9_shelf_climate/src/OCE/DIA/diaharm_fast.F90

    r15500 r15501  
    808808          enddo 
    809809 
    810          !tmp_name=TRIM(suffix)//'_tidal_anal_offset' 
    811          !IF( iom_use(TRIM(tmp_name)) )  THEN 
    812          !   IF(lwp) WRITE(numout,*) "harm_ana_out: iom_put: ",TRIM(tmp_name) 
    813          !   CALL iom_put( TRIM(tmp_name), g_cosamp2D( 0,:,:,jgrid)) 
    814          !ELSE 
    815          !   IF(lwp) WRITE(numout,*) "harm_ana_out: not requested: ",TRIM(tmp_name) 
    816          !ENDIF 
     810         suffix = TRIM( m_varName2d( m_posi_2d(jgrid) ) ) 
     811         tmp_name='TA_'//TRIM(suffix)//'_off' 
     812         IF( iom_use(TRIM(tmp_name)) )  THEN 
     813            IF(lwp) WRITE(numout,*) "harm_ana_out: iom_put: ",TRIM(tmp_name) 
     814            CALL iom_put( TRIM(tmp_name), g_cosamp2D( 0,:,:,jgrid)) 
     815         ELSE 
     816            IF(lwp) WRITE(numout,*) "harm_ana_out: not requested: ",TRIM(tmp_name) 
     817         ENDIF 
    817818 
    818819      enddo 
     
    872873          enddo             ! jh  
    873874 
    874          !tmp_name=TRIM(suffix)//'_tidal_anal_offset' 
    875          !IF( iom_use(TRIM(tmp_name)) )  THEN 
    876          !   IF(lwp) WRITE(numout,*) "harm_ana_out: iom_put: ",TRIM(tmp_name) 
    877          !   CALL iom_put( TRIM(tmp_name), g_cosamp3D( 0,:,:,:,jgrid)) 
    878          !ELSE 
    879          !   IF(lwp) WRITE(numout,*) "harm_ana_out: not requested: ",TRIM(tmp_name) 
    880          !ENDIF 
     875         suffix = TRIM( m_varName3d( m_posi_3d(jgrid) ) ) 
     876         tmp_name='TA_'//TRIM(suffix)//'_off' 
     877         IF( iom_use(TRIM(tmp_name)) )  THEN 
     878            IF(lwp) WRITE(numout,*) "harm_ana_out: iom_put: ",TRIM(tmp_name) 
     879            CALL iom_put( TRIM(tmp_name), g_cosamp3D( 0,:,:,:,jgrid)) 
     880         ELSE 
     881            IF(lwp) WRITE(numout,*) "harm_ana_out: not requested: ",TRIM(tmp_name) 
     882         ENDIF 
    881883 
    882884      enddo                 ! jgrid 
     885 
     886 
    883887! 
    884888   END SUBROUTINE harm_ana_out 
Note: See TracChangeset for help on using the changeset viewer.