Changeset 14644 for NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/SWE/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/SWE/nemogcm.F90
r14200 r14644 44 44 CHARACTER(lc) :: cform_aaa="( /, 'AAAAAAAA', / ) " ! flag for output listing 45 45 46 #if defined key_mpp_mpi46 #if ! defined key_mpi_off 47 47 ! need MPI_Wtime 48 48 INCLUDE 'mpif.h' … … 135 135 CALL nemo_closefile 136 136 ! 137 #if defined key_ iomput137 #if defined key_xios 138 138 CALL xios_finalize ! end mpp communications with xios 139 139 #else … … 170 170 ! !-------------------------------------------------! 171 171 ! 172 #if defined key_ iomput172 #if defined key_xios 173 173 CALL xios_initialize( "for_xios_mpi_id", return_comm=ilocal_comm ) ! nemo local communicator given by xios 174 174 CALL mpp_start( ilocal_comm ) … … 261 261 ! 262 262 IF( ln_read_cfg ) THEN ! Read sizes in domain configuration file 263 CALL domain_cfg ( cn_cfg, nn_cfg, Ni0glo, Nj0glo, jpkglo, jperio)263 CALL domain_cfg ( cn_cfg, nn_cfg, Ni0glo, Nj0glo, jpkglo, l_Iperio, l_Jperio, l_NFold, c_NFtype ) 264 264 ELSE ! user-defined namelist 265 CALL usr_def_nam( cn_cfg, nn_cfg, Ni0glo, Nj0glo, jpkglo, jperio)265 CALL usr_def_nam( cn_cfg, nn_cfg, Ni0glo, Nj0glo, jpkglo, l_Iperio, l_Jperio, l_NFold, c_NFtype ) 266 266 ENDIF 267 267 ! … … 413 413 !! *** ROUTINE nemo_alloc *** 414 414 !! 415 !! ** Purpose : Allocate all the dynamic arrays of the O PAmodules415 !! ** Purpose : Allocate all the dynamic arrays of the OCE modules 416 416 !! 417 417 !! ** Method :
Note: See TracChangeset
for help on using the changeset viewer.