- Timestamp:
- 2021-11-28T18:59:49+01:00 (3 years ago)
- Location:
- NEMO/branches/2021/ticket2632_r14588_theta_sbcblk
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2021/ticket2632_r14588_theta_sbcblk
- Property svn:externals
-
old new 9 9 10 10 # SETTE 11 ^/utils/CI/sette@14244 sette 11 ^/utils/CI/sette@HEAD sette 12
-
- Property svn:externals
-
NEMO/branches/2021/ticket2632_r14588_theta_sbcblk/src/OCE/OBS/obs_prep.F90
r14275 r15548 33 33 PUBLIC calc_month_len ! Calculate the number of days in the months of a year 34 34 35 # include "domzgr_substitute.h90" 35 36 !!---------------------------------------------------------------------- 36 37 !! NEMO/OCE 4.0 , NEMO Consortium (2018) … … 1071 1072 !!---------------------------------------------------------------------- 1072 1073 !! * Modules used 1073 USE dom_oce, ONLY : & ! Geographical information 1074 & gdepw_1d, & 1075 & gdepw_0, & 1076 & gdepw, & 1077 & gdept, & 1078 & ln_zco, & 1079 & ln_zps 1074 USE dom_oce ! Geographical information 1080 1075 1081 1076 !! * Arguments … … 1128 1123 & zglam, & ! Model longitude at grid points 1129 1124 & zgphi ! Model latitude at grid points 1125 REAL(wp), DIMENSION(jpi,jpj,jpk) :: zdepw 1130 1126 INTEGER, DIMENSION(2,2,kprofno) :: & 1131 1127 & igrdi, & ! Grid i,j … … 1186 1182 CALL obs_int_comm_2d( 2, 2, kprofno, kpi, kpj, igrdi, igrdj, plam, zglam ) 1187 1183 CALL obs_int_comm_2d( 2, 2, kprofno, kpi, kpj, igrdi, igrdj, pphi, zgphi ) 1188 CALL obs_int_comm_3d( 2, 2, kprofno, kpi, kpj, kpk, igrdi, igrdj, gdepw(:,:,:,Kmm), & 1189 & zgdepw ) 1184 DO jk = 1, jpk 1185 zdepw(:,:,jk) = gdepw(:,:,jk,Kmm) 1186 END DO 1187 CALL obs_int_comm_3d( 2, 2, kprofno, kpi, kpj, kpk, igrdi, igrdj, zdepw(:,:,:), zgdepw ) 1190 1188 1191 1189 DO jobs = 1, kprofno
Note: See TracChangeset
for help on using the changeset viewer.