Changeset 11610 for NEMO/branches/2019/dev_r11233_AGRIF-05_jchanut_vert_coord_interp/src/NST/agrif_top_update.F90
- Timestamp:
- 2019-09-27T14:08:17+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r11233_AGRIF-05_jchanut_vert_coord_interp/src/NST/agrif_top_update.F90
r11607 r11610 19 19 USE par_trc 20 20 USE trc 21 USE vremap 21 22 22 23 IMPLICIT NONE … … 64 65 !! 65 66 INTEGER :: ji,jj,jk,jn 66 REAL(wp) , DIMENSION(i1:i2,j1:j2,1:jpk,n1:n2) :: tabres_child67 REAL(wp) :: ztb, ztnu, ztno 67 68 REAL(wp) :: h_in(k1:k2) 68 69 REAL(wp) :: h_out(1:jpk) 69 70 INTEGER :: N_in, N_out 70 71 REAL(wp) :: h_diff 71 REAL(wp) :: zrho_xy72 72 REAL(wp) :: tabin(k1:k2,n1:n2) 73 REAL(wp), DIMENSION(i1:i2,j1:j2,1:jpk,1:jptra) :: tabres_child 73 74 !!--------------------------------------------- 74 75 ! 75 76 IF (before) THEN 76 77 AGRIF_SpecialValue = -999._wp 77 zrho_xy = Agrif_rhox() * Agrif_rhoy()78 78 DO jn = n1,n2-1 79 79 DO jk=k1,k2
Note: See TracChangeset
for help on using the changeset viewer.