Changeset 14644 for NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/tests/CANAL/MY_SRC/usrdef_istate.F90
- Timestamp:
- 2021-03-26T15:33:49+01:00 (3 years ago)
- Location:
- NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final
- Property svn:externals
-
old new 9 9 10 10 # SETTE 11 ^/utils/CI/sette _wave@13990sette11 ^/utils/CI/sette@14244 sette
-
- Property svn:externals
-
NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/tests/CANAL/MY_SRC/usrdef_istate.F90
r14200 r14644 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: … … 241 239 ! 242 240 CALL lbc_lnk( 'usrdef_istate', pts , 'T', 1. ) 243 CALL lbc_lnk _multi( 'usrdef_istate', pu, 'U', -1., pv, 'V', -1. )241 CALL lbc_lnk( 'usrdef_istate', pu, 'U', -1., pv, 'V', -1. ) 244 242 245 243 END SUBROUTINE usr_def_istate
Note: See TracChangeset
for help on using the changeset viewer.