- Timestamp:
- 2020-04-09T19:30:08+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r12377_KERNEL-06_techene_e3/src/OCE/DOM/istate.F90
r12724 r12731 60 60 ! 61 61 INTEGER :: ji, jj, jk ! dummy loop indices 62 REAL(wp), DIMENSION(jpi,jpj,jpk) :: zgdept !!st temporary modif to be able to use gdept subtitute 62 63 !!gm see comment further down 63 64 REAL(wp), ALLOCATABLE, DIMENSION(:,:,:,:) :: zuvd ! U & V data workspace … … 116 117 ! 117 118 ELSE ! user defined initial T and S 118 CALL usr_def_istate( gdept(:,:,:,Kbb), tmask, ts(:,:,:,:,Kbb), uu(:,:,:,Kbb), vv(:,:,:,Kbb), ssh(:,:,Kbb) ) 119 !!st zgdept 120 DO jk = 1, jpkm1 121 zgdept(:,:,jk) = gdept(:,:,jk,Kbb) 122 END DO 123 CALL usr_def_istate( zgdept, tmask, ts(:,:,:,:,Kbb), uu(:,:,:,Kbb), vv(:,:,:,Kbb), ssh(:,:,Kbb) ) 119 124 ENDIF 120 125 ts (:,:,:,:,Kmm) = ts (:,:,:,:,Kbb) ! set now values from to before ones … … 128 133 !!gm POTENTIAL BUG : 129 134 !!gm ISSUE : if ssh(:,:,Kbb) /= 0 then, in non linear free surface, the e3._n, e3._b should be recomputed 130 !! as well as gdept and gdepw.... !!!!!135 !! as well as gdept_ and gdepw_.... !!!!! 131 136 !! ===>>>> probably a call to domvvl initialisation here.... 132 137
Note: See TracChangeset
for help on using the changeset viewer.