Changeset 15648 for NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/ICE
- Timestamp:
- 2022-01-17T12:35:51+01:00 (2 years ago)
- Location:
- NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/ICE
- Files:
-
- 3 edited
-
icectl.F90 (modified) (1 diff)
-
icerst.F90 (modified) (1 diff)
-
icestp.F90 (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/ICE/icectl.F90
r14644 r15648 706 706 CALL prt_ctl_info(' - Cell values : ') 707 707 CALL prt_ctl_info(' ~~~~~~~~~~~~~ ') 708 CALL prt_ctl(tab2d_1=CAST WP(e1e2t) , clinfo1=' cell area :')708 CALL prt_ctl(tab2d_1=CASTDP(e1e2t) , clinfo1=' cell area :') 709 709 CALL prt_ctl(tab2d_1=at_i , clinfo1=' at_i :') 710 710 CALL prt_ctl(tab2d_1=ato_i , clinfo1=' ato_i :') -
NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/ICE/icerst.F90
r14644 r15648 330 330 ! 331 331 IF(lwp) WRITE(numout,*) ' SAS: default initialisation of ss[st]_m arrays used in ice_istate' 332 IF( l_useCT ) THEN ; sst_m(:,:) = eos_pt_from_ct( CAST WP(ts(:,:,1,jp_tem, Kmm)), CASTWP(ts(:,:,1,jp_sal, Kmm)) )332 IF( l_useCT ) THEN ; sst_m(:,:) = eos_pt_from_ct( CASTDP(ts(:,:,1,jp_tem, Kmm)), CASTDP(ts(:,:,1,jp_sal, Kmm)) ) 333 333 ELSE ; sst_m(:,:) = ts(:,:,1,jp_tem, Kmm) 334 334 ENDIF -
NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/ICE/icestp.F90
r14986 r15648 213 213 ! --- Ocean time step --- ! 214 214 !-------------------------! 215 CALL ice_update_tau( kt, CAST WP(uu(:,:,1,Kbb)), CASTWP(vv(:,:,1,Kbb)) ) ! -- update surface ocean stresses215 CALL ice_update_tau( kt, CASTDP(uu(:,:,1,Kbb)), CASTDP(vv(:,:,1,Kbb)) ) ! -- update surface ocean stresses 216 216 !!gm remark, the ocean-ice stress is not saved in ice diag call above ..... find a solution!!! 217 217 !
Note: See TracChangeset
for help on using the changeset viewer.
