Changeset 14986 for NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/tests/SWG
- Timestamp:
- 2021-06-14T13:34:08+02:00 (3 years ago)
- Location:
- NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/tests/SWG
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/tests/SWG/EXPREF/namelist_cfg
r14644 r14986 32 32 !----------------------------------------------------------------------- 33 33 ln_read_cfg = .false. ! (=F) user defined configuration (F => create/check namusr_def) 34 / 35 !----------------------------------------------------------------------- 36 &namtile ! parameters of the tiling 37 !----------------------------------------------------------------------- 34 38 / 35 39 !----------------------------------------------------------------------- -
NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/tests/SWG/MY_SRC/usrdef_hgr.F90
r13752 r14986 113 113 DO jj = 1, jpj 114 114 DO ji = 1, jpi 115 zim1 = REAL( ji + nimpp - 1 ) ; zim05 = REAL( ji + nimpp - 1 ) - 0.5116 zjm1 = REAL( jj + njmpp - 1 ) ; zjm05 = REAL( jj + njmpp - 1 ) - 0.5115 zim1 = REAL( ji + nimpp - nn_hls ) ; zim05 = REAL( ji + nimpp - nn_hls ) - 0.5 116 zjm1 = REAL( jj + njmpp - nn_hls ) ; zjm05 = REAL( jj + njmpp - nn_hls ) - 0.5 117 117 ! 118 118 !glamt(i,j) position (meters) at T-point
Note: See TracChangeset
for help on using the changeset viewer.