Changeset 14644 for NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/SAO/nemogcm.F90
- 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:
-
- 2 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/src/SAO/nemogcm.F90
r13970 r14644 35 35 USE lbcnfd , ONLY : isendto, nsndto ! Setup of north fold exchanges 36 36 USE lib_fortran ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 37 #if defined key_ iomput37 #if defined key_xios 38 38 USE xios ! xIOserver 39 39 #endif … … 107 107 ! !-------------------------------------------------! 108 108 ! 109 #if defined key_ iomput109 #if defined key_xios 110 110 IF( Agrif_Root() ) THEN 111 111 IF( lk_oasis ) THEN … … 207 207 ! 208 208 IF( ln_read_cfg ) THEN ! Read sizes in domain configuration file 209 CALL domain_cfg ( cn_cfg, nn_cfg, Ni0glo, Nj0glo, jpkglo, jperio)209 CALL domain_cfg ( cn_cfg, nn_cfg, Ni0glo, Nj0glo, jpkglo, l_Iperio, l_Jperio, l_NFold, c_NFtype ) 210 210 ELSE ! user-defined namelist 211 CALL usr_def_nam( cn_cfg, nn_cfg, Ni0glo, Nj0glo, jpkglo, jperio)211 CALL usr_def_nam( cn_cfg, nn_cfg, Ni0glo, Nj0glo, jpkglo, l_Iperio, l_Jperio, l_NFold, c_NFtype ) 212 212 ENDIF 213 213 ! … … 323 323 !! *** ROUTINE nemo_alloc *** 324 324 !! 325 !! ** Purpose : Allocate all the dynamic arrays of the O PAmodules325 !! ** Purpose : Allocate all the dynamic arrays of the OCE modules 326 326 !! 327 327 !! ** Method :
Note: See TracChangeset
for help on using the changeset viewer.