Changeset 14219 for NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/SBC/geo2ocean.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/SBC/geo2ocean.F90
r13295 r14219 44 44 !! * Substitutions 45 45 # include "do_loop_substitute.h90" 46 # include "single_precision_substitute.h90" 46 47 !!---------------------------------------------------------------------- 47 48 !! NEMO/OCE 4.0 , NEMO Consortium (2018) … … 73 74 IF(lwp) WRITE(numout,*) ' ~~~~~~~~ ' 74 75 ! 75 CALL angle( glamt, gphit, glamu, gphiu, glamv, gphiv, glamf, gphif) ! initialization of the transformation76 CALL angle( CASTWP(glamt), CASTWP(gphit), glamu, gphiu, glamv, gphiv, CASTWP(glamf), CASTWP(gphif) ) ! initialization of the transformation 76 77 lmust_init = .FALSE. 77 78 ENDIF … … 449 450 IF(lwp) WRITE(numout,*) ' obs_rot : geographic <--> stretched' 450 451 IF(lwp) WRITE(numout,*) ' ~~~~~~~ coordinate transformation' 451 CALL angle( glamt, gphit, glamu, gphiu, glamv, gphiv, glamf, gphif) ! initialization of the transformation452 CALL angle( CASTWP(glamt), CASTWP(gphit), glamu, gphiu, glamv, gphiv, CASTWP(glamf), CASTWP(gphif) ) ! initialization of the transformation 452 453 lmust_init = .FALSE. 453 454 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.