Changeset 14224 for NEMO/trunk/tests/CANAL/MY_SRC/usrdef_istate.F90
- Timestamp:
- 2020-12-19T15:49:56+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/tests/CANAL/MY_SRC/usrdef_istate.F90
r14133 r14224 76 76 CASE(-1) ! stratif at rest 77 77 78 ! sea level:79 pssh(:,:) = 0.80 78 ! temperature: 81 79 pts(:,:,1,jp_tem) = 25. !!30._wp … … 146 144 ! salinity: 147 145 DO jk=1, jpkm1 148 pts(:,:,jk,jp_sal) = pssh(:,:)146 pts(:,:,jk,jp_sal) = gphit(:,:) 149 147 END DO 150 148 ! velocities:
Note: See TracChangeset
for help on using the changeset viewer.