Changeset 14219 for NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/IOM/restart.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/IOM/restart.F90
r14200 r14219 48 48 # include "do_loop_substitute.h90" 49 49 # include "domzgr_substitute.h90" 50 # include "single_precision_substitute.h90" 50 51 !!---------------------------------------------------------------------- 51 52 !! NEMO/OCE 4.0 , NEMO Consortium (2018) … … 328 329 zgdept(:,:,jk) = gdept(:,:,jk,Kmm) 329 330 END DO 330 CALL eos( ts(:,:,:,:,Kmm), rhd, rhop, zgdept )331 CALL eos( CASTWP(ts(:,:,:,:,Kmm)), rhd, rhop, zgdept ) 331 332 DEALLOCATE( zgdept ) 332 333 #else 333 CALL eos( ts(:,:,:,:,Kmm), rhd, rhop, gdept(:,:,:,Kmm) )334 CALL eos( CASTWP(ts(:,:,:,:,Kmm)), rhd, rhop, CASTWP(gdept(:,:,:,Kmm)) ) 334 335 #endif 335 336 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.