Changeset 13352 for NEMO/branches/2020/dev_r13312_AGRIF-03-04_jchanut_vinterp_tstep/src/NST/agrif_oce_interp.F90
- Timestamp:
- 2020-07-29T10:33:53+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r13312_AGRIF-03-04_jchanut_vinterp_tstep/src/NST/agrif_oce_interp.F90
r13351 r13352 883 883 z_in(1) = 0.5_wp * h_in(1) - zhtot + ht0_parent(ji,jj) 884 884 DO jk=2,N_in 885 z_in(jk) = z_in(jk-1) + 0.5_wp * h_in(jk)885 z_in(jk) = z_in(jk-1) + 0.5_wp * (h_in(jk-1)+h_in(jk)) 886 886 END DO 887 887 … … 895 895 z_out(1) = 0.5_wp * h_out(1) - SUM(h_out(1:N_out)) + ht_0(ji,jj) 896 896 DO jk=2,N_out 897 z_out(jk) = z_out(jk-1) + 0.5_wp * h_out(jk)897 z_out(jk) = z_out(jk-1) + 0.5_wp * (h_out(jk)+h_out(jk-1)) 898 898 END DO 899 899 … … 1034 1034 z_in(1) = 0.5_wp * h_in(1) - zhtot + hu0_parent(ji,jj) 1035 1035 DO jk=2,N_in 1036 z_in(jk) = z_in(jk-1) + 0.5_wp * h_in(jk)1036 z_in(jk) = z_in(jk-1) + 0.5_wp * (h_in(jk)+h_in(jk-1)) 1037 1037 END DO 1038 1038 … … 1046 1046 z_out(1) = 0.5_wp * h_out(1) - SUM(h_out(1:N_out)) + hu_0(ji,jj) 1047 1047 DO jk=2,N_out 1048 z_out(jk) = z_out(jk-1) + 0.5_wp * h_out(jk)1048 z_out(jk) = z_out(jk-1) + 0.5_wp * (h_out(jk-1) + h_out(jk)) 1049 1049 END DO 1050 1050 … … 1157 1157 z_in(1) = 0.5_wp * h_in(1) - zhtot + hv0_parent(ji,jj) 1158 1158 DO jk=2,N_in 1159 z_in(jk) = z_in(jk-1) + 0.5_wp * h_in(jk)1159 z_in(jk) = z_in(jk-1) + 0.5_wp * (h_in(jk-1)+h_in(jk)) 1160 1160 END DO 1161 1161 … … 1169 1169 z_out(1) = 0.5_wp * h_out(1) - SUM(h_out(1:N_out)) + hv_0(ji,jj) 1170 1170 DO jk=2,N_out 1171 z_out(jk) = z_out(jk-1) + 0.5_wp * h_out(jk)1171 z_out(jk) = z_out(jk-1) + 0.5_wp * (h_out(jk-1)+h_out(jk)) 1172 1172 END DO 1173 1173
Note: See TracChangeset
for help on using the changeset viewer.