Changeset 14219 for NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/ICE/icectl.F90
- Timestamp:
- 2020-12-18T18:52:57+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/ICE/icectl.F90
r14072 r14219 60 60 !! * Substitutions 61 61 # include "do_loop_substitute.h90" 62 # include "single_precision_substitute.h90" 62 63 !!---------------------------------------------------------------------- 63 64 !! NEMO/ICE 4.0 , NEMO Consortium (2018) … … 705 706 CALL prt_ctl_info(' - Cell values : ') 706 707 CALL prt_ctl_info(' ~~~~~~~~~~~~~ ') 707 CALL prt_ctl(tab2d_1= e1e2t, clinfo1=' cell area :')708 CALL prt_ctl(tab2d_1=CASTWP(e1e2t) , clinfo1=' cell area :') 708 709 CALL prt_ctl(tab2d_1=at_i , clinfo1=' at_i :') 709 710 CALL prt_ctl(tab2d_1=ato_i , clinfo1=' ato_i :')
Note: See TracChangeset
for help on using the changeset viewer.