Changeset 14644 for NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/tests/ICE_ADV1D
- Timestamp:
- 2021-03-26T15:33:49+01:00 (3 years ago)
- Location:
- NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final
- Files:
-
- 9 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final
- Property svn:externals
-
old new 9 9 10 10 # SETTE 11 ^/utils/CI/sette _wave@13990sette11 ^/utils/CI/sette@14244 sette
-
- Property svn:externals
-
NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/tests/ICE_ADV1D/EXPREF/namelist_cfg
r13558 r14644 216 216 !! *** Miscellaneous namelists *** !! 217 217 !! !! 218 !! nammpp Massively Parallel Processing ("key_mpp_mpi")218 !! nammpp Massively Parallel Processing 219 219 !! namctl Control prints (default: OFF) 220 220 !! namsto Stochastic parametrization of EOS (default: OFF) … … 222 222 ! 223 223 !----------------------------------------------------------------------- 224 &nammpp ! Massively Parallel Processing ("key_mpp_mpi")224 &nammpp ! Massively Parallel Processing 225 225 !----------------------------------------------------------------------- 226 226 / -
NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/tests/ICE_ADV1D/EXPREF/namelist_cfg_120pts
r13558 r14644 216 216 !! *** Miscellaneous namelists *** !! 217 217 !! !! 218 !! nammpp Massively Parallel Processing ("key_mpp_mpi")218 !! nammpp Massively Parallel Processing 219 219 !! namctl Control prints (default: OFF) 220 220 !! namsto Stochastic parametrization of EOS (default: OFF) … … 222 222 ! 223 223 !----------------------------------------------------------------------- 224 &nammpp ! Massively Parallel Processing ("key_mpp_mpi")224 &nammpp ! Massively Parallel Processing 225 225 !----------------------------------------------------------------------- 226 226 / -
NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/tests/ICE_ADV1D/EXPREF/namelist_cfg_240pts
r13558 r14644 216 216 !! *** Miscellaneous namelists *** !! 217 217 !! !! 218 !! nammpp Massively Parallel Processing ("key_mpp_mpi")218 !! nammpp Massively Parallel Processing 219 219 !! namctl Control prints (default: OFF) 220 220 !! namsto Stochastic parametrization of EOS (default: OFF) … … 222 222 ! 223 223 !----------------------------------------------------------------------- 224 &nammpp ! Massively Parallel Processing ("key_mpp_mpi")224 &nammpp ! Massively Parallel Processing 225 225 !----------------------------------------------------------------------- 226 226 / -
NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/tests/ICE_ADV1D/EXPREF/namelist_cfg_60pts
r13558 r14644 216 216 !! *** Miscellaneous namelists *** !! 217 217 !! !! 218 !! nammpp Massively Parallel Processing ("key_mpp_mpi")218 !! nammpp Massively Parallel Processing 219 219 !! namctl Control prints (default: OFF) 220 220 !! namsto Stochastic parametrization of EOS (default: OFF) … … 222 222 ! 223 223 !----------------------------------------------------------------------- 224 &nammpp ! Massively Parallel Processing ("key_mpp_mpi")224 &nammpp ! Massively Parallel Processing 225 225 !----------------------------------------------------------------------- 226 226 / -
NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/tests/ICE_ADV1D/MY_SRC/usrdef_hgr.F90
r13295 r14644 75 75 76 76 ! ========== 77 zlam0 = -REAL( (Ni0glo-2)/2, wp)* 1.e-3 * rn_dx78 zphi0 = -REAL( (Nj0glo-2)/2, wp)* 1.e-3 * rn_dy77 zlam0 = -REAL(Ni0glo, wp) * 0.5 * 1.e-3 * rn_dx 78 zphi0 = -REAL(Nj0glo, wp) * 0.5 * 1.e-3 * rn_dy 79 79 80 DO_2D( 1, 1, 1, 1)81 zti = REAL( mig0 _oldcmp(ji) - 1, wp ) ! start at i=0in the global grid without halos82 ztj = REAL( mjg0 _oldcmp(jj) - 1, wp ) ! start at j=0in the global grid without halos80 DO_2D( nn_hls, nn_hls, nn_hls, nn_hls ) 81 zti = REAL( mig0(ji), wp ) - 0.5_wp ! start at i=0.5 in the global grid without halos 82 ztj = REAL( mjg0(jj), wp ) - 0.5_wp ! start at j=0.5 in the global grid without halos 83 83 84 84 plamt(ji,jj) = zlam0 + rn_dx * 1.e-3 * zti -
NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/tests/ICE_ADV1D/MY_SRC/usrdef_nam.F90
r13286 r14644 39 39 CONTAINS 40 40 41 SUBROUTINE usr_def_nam( cd_cfg, kk_cfg, kpi, kpj, kpk, kperio)41 SUBROUTINE usr_def_nam( cd_cfg, kk_cfg, kpi, kpj, kpk, ldIperio, ldJperio, ldNFold, cdNFtype ) 42 42 !!---------------------------------------------------------------------- 43 43 !! *** ROUTINE dom_nam *** … … 51 51 !! ** input : - namusr_def namelist found in namelist_cfg 52 52 !!---------------------------------------------------------------------- 53 CHARACTER(len=*) , INTENT(out) :: cd_cfg ! configuration name 54 INTEGER , INTENT(out) :: kk_cfg ! configuration resolution 55 INTEGER , INTENT(out) :: kpi, kpj, kpk ! global domain sizes 56 INTEGER , INTENT(out) :: kperio ! lateral global domain b.c. 53 CHARACTER(len=*), INTENT(out) :: cd_cfg ! configuration name 54 INTEGER , INTENT(out) :: kk_cfg ! configuration resolution 55 INTEGER , INTENT(out) :: kpi, kpj, kpk ! global domain sizes 56 LOGICAL , INTENT(out) :: ldIperio, ldJperio ! i- and j- periodicity 57 LOGICAL , INTENT(out) :: ldNFold ! North pole folding 58 CHARACTER(len=1), INTENT(out) :: cdNFtype ! Folding type: T or F 57 59 ! 58 60 INTEGER :: ios ! Local integer … … 78 80 zly = kpj*rn_dy*1.e-3 79 81 ! ! Set the lateral boundary condition of the global domain 80 kperio = 0 ! ICE_ADV1D configuration : bi-periodic basin 82 ldIperio = .FALSE. ; ldJperio = .FALSE. ! ICE_ADV1D configuration : closed domain 83 ldNFold = .FALSE. ; cdNFtype = '-' 84 ! 81 85 ! ! control print 82 86 IF(lwp) THEN … … 95 99 WRITE(numout,*) ' Coriolis:', ln_corio 96 100 WRITE(numout,*) ' ' 97 WRITE(numout,*) ' Lateral boundary condition of the global domain'98 WRITE(numout,*) ' ICE_ADV1D : closed basin jperio = ', kperio99 101 ENDIF 100 102 ! -
NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/tests/ICE_ADV1D/MY_SRC/usrdef_sbc.F90
r14072 r14644 120 120 emp_oce (:,:) = 0._wp ! uniform value for freshwater budget (E-P) 121 121 qsr_oce (:,:) = 0._wp ! uniform value for solar radiation 122 qns_oce (:,:) = 0._wp ! uniform value for non-solar radiation122 qns_oce (:,:) = 0._wp ! uniform value for non-solar heat flux 123 123 124 124 ! ice variables 125 125 alb_ice (:,:,:) = 0.7_wp ! useless 126 126 qsr_ice (:,:,:) = 0._wp ! uniform value for solar radiation 127 qns_ice (:,:,:) = 0._wp ! uniform value for non-solar radiation 127 qns_ice (:,:,:) = 0._wp ! uniform value for non-solar heat flux 128 dqns_ice(:,:,:) = 0._wp ! uniform value for non solar heat flux sensitivity for ice 128 129 sprecip (:,:) = 0._wp ! uniform value for snow precip 129 130 evap_ice(:,:,:) = 0._wp ! uniform value for sublimation -
NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/tests/ICE_ADV1D/cpp_ICE_ADV1D.fcm
r14200 r14644 1 bld::tool::fppkeys key_si3 key_ mpp_mpi key_nosignedzero key_iomputkey_linssh1 bld::tool::fppkeys key_si3 key_xios key_linssh
Note: See TracChangeset
for help on using the changeset viewer.