Changeset 14644 for NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/tests/ICB
- 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:
-
- 5 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/ICB/EXPREF/namelist_cfg
r13899 r14644 464 464 !! *** Miscellaneous namelists *** !! 465 465 !! !! 466 !! nammpp Massively Parallel Processing ("key_mpp_mpi")466 !! nammpp Massively Parallel Processing 467 467 !! namctl Control prints (default: OFF) 468 468 !! namsto Stochastic parametrization of EOS (default: OFF) … … 470 470 ! 471 471 !----------------------------------------------------------------------- 472 &nammpp ! Massively Parallel Processing ("key_mpp_mpi")472 &nammpp ! Massively Parallel Processing 473 473 !----------------------------------------------------------------------- 474 474 / -
NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/tests/ICB/MY_SRC/step.F90
r13899 r14644 39 39 #else 40 40 !!---------------------------------------------------------------------- 41 !! stp : O PAsystem time-stepping41 !! stp : OCE system time-stepping 42 42 !!---------------------------------------------------------------------- 43 43 USE step_oce ! time stepping definition modules … … 72 72 !! *** ROUTINE stp *** 73 73 !! 74 !! ** Purpose : - Time stepping of O PA(momentum and active tracer eqs.)74 !! ** Purpose : - Time stepping of OCE (momentum and active tracer eqs.) 75 75 !! - Time stepping of SI3 (dynamic and thermodynamic eqs.) 76 76 !! - Time stepping of TRC (passive tracer eqs.) … … 98 98 ENDIF 99 99 IF( kstp == nit000 + 1 ) lk_agrif_fstep = .FALSE. 100 # if defined key_ iomput100 # if defined key_xios 101 101 IF( Agrif_Nbstepint() == 0 ) CALL iom_swap( cxios_context ) 102 102 # endif … … 150 150 ENDIF 151 151 ! 152 #if defined key_ iomput152 #if defined key_xios 153 153 !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 154 154 ! Finalize contextes if end of simulation or error detected -
NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/tests/ICB/MY_SRC/usrdef_nam.F90
r13899 r14644 42 42 CONTAINS 43 43 44 SUBROUTINE usr_def_nam( cd_cfg, kk_cfg, kpi, kpj, kpk, kperio)44 SUBROUTINE usr_def_nam( cd_cfg, kk_cfg, kpi, kpj, kpk, ldIperio, ldJperio, ldNFold, cdNFtype ) 45 45 !!---------------------------------------------------------------------- 46 46 !! *** ROUTINE dom_nam *** … … 54 54 !! ** input : - namusr_def namelist found in namelist_cfg 55 55 !!---------------------------------------------------------------------- 56 CHARACTER(len=*) , INTENT(out) :: cd_cfg ! configuration name 57 INTEGER , INTENT(out) :: kk_cfg ! configuration resolution 58 INTEGER , INTENT(out) :: kpi, kpj, kpk ! global domain sizes 59 INTEGER , INTENT(out) :: kperio ! lateral global domain b.c. 56 CHARACTER(len=*), INTENT(out) :: cd_cfg ! configuration name 57 INTEGER , INTENT(out) :: kk_cfg ! configuration resolution 58 INTEGER , INTENT(out) :: kpi, kpj, kpk ! global domain sizes 59 LOGICAL , INTENT(out) :: ldIperio, ldJperio ! i- and j- periodicity 60 LOGICAL , INTENT(out) :: ldNFold ! North pole folding 61 CHARACTER(len=1), INTENT(out) :: cdNFtype ! Folding type: T or F 60 62 ! 61 63 INTEGER :: ios ! Local integer … … 78 80 ! 79 81 ! ! Set the lateral boundary condition of the global domain 80 kperio = 0 ! ICB configuration : box 82 ldIperio = .FALSE. ; ldJperio = .FALSE. ! ICB configuration : closed domain 83 ldNFold = .FALSE. ; cdNFtype = '-' 81 84 ! 82 85 ! ! control print … … 99 102 WRITE(numout,*) ' jpkglo = ', kpk 100 103 WRITE(numout,*) ' ' 101 WRITE(numout,*) ' Lateral boundary condition of the global domain'102 WRITE(numout,*) ' ICB : closed basin jperio = ', kperio103 104 ENDIF 104 105 ! -
NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/tests/ICB/cpp_ICB.fcm
r14200 r14644 1 bld::tool::fppkeys key_ iomput key_mpp_mpikey_qco1 bld::tool::fppkeys key_xios key_qco
Note: See TracChangeset
for help on using the changeset viewer.