Changeset 14219 for NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/TRD/trdpen.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/OCE/TRD/trdpen.F90
r13237 r14219 37 37 !! * Substitutions 38 38 # include "domzgr_substitute.h90" 39 # include "single_precision_substitute.h90" 39 40 !!---------------------------------------------------------------------- 40 41 !! NEMO/OCE 4.0 , NEMO Consortium (2018) … … 79 80 IF( kt /= nkstp ) THEN ! full eos: set partial derivatives at the 1st call of kt time step 80 81 nkstp = kt 81 CALL eos_pen( ts(:,:,:,:,Kmm), rab_PE, zpe, Kmm )82 CALL eos_pen( CASTWP(ts(:,:,:,:,Kmm)), rab_PE, zpe, Kmm ) 82 83 CALL iom_put( "alphaPE", rab_pe(:,:,:,jp_tem) ) 83 84 CALL iom_put( "betaPE" , rab_pe(:,:,:,jp_sal) )
Note: See TracChangeset
for help on using the changeset viewer.