Changeset 15501 for NEMO/branches/UKMO/NEMO_4.0.4_CO9_shelf_climate/src/OCE
- Timestamp:
- 2021-11-14T20:40:30+01:00 (3 years ago)
- 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 808 808 enddo 809 809 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 817 818 818 819 enddo … … 872 873 enddo ! jh 873 874 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 881 883 882 884 enddo ! jgrid 885 886 883 887 ! 884 888 END SUBROUTINE harm_ana_out
Note: See TracChangeset
for help on using the changeset viewer.