Changeset 14644 for NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/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/OCE/nemogcm.F90
r14200 r14644 87 87 CHARACTER(lc) :: cform_aaa="( /, 'AAAAAAAA', / ) " ! flag for output listing 88 88 89 #if defined key_mpp_mpi89 #if ! defined key_mpi_off 90 90 ! need MPI_Wtime 91 91 INCLUDE 'mpif.h' … … 233 233 CALL nemo_closefile 234 234 ! 235 #if defined key_ iomput235 #if defined key_xios 236 236 CALL xios_finalize ! end mpp communications with xios 237 237 IF( lk_oasis ) CALL cpl_finalize ! end coupling and mpp communications with OASIS … … 271 271 ! !-------------------------------------------------! 272 272 ! 273 #if defined key_ iomput273 #if defined key_xios 274 274 IF( Agrif_Root() ) THEN 275 275 IF( lk_oasis ) THEN … … 378 378 ! 379 379 IF( ln_read_cfg ) THEN ! Read sizes in domain configuration file 380 CALL domain_cfg ( cn_cfg, nn_cfg, Ni0glo, Nj0glo, jpkglo, jperio)380 CALL domain_cfg ( cn_cfg, nn_cfg, Ni0glo, Nj0glo, jpkglo, l_Iperio, l_Jperio, l_NFold, c_NFtype ) 381 381 ELSE ! user-defined namelist 382 CALL usr_def_nam( cn_cfg, nn_cfg, Ni0glo, Nj0glo, jpkglo, jperio)382 CALL usr_def_nam( cn_cfg, nn_cfg, Ni0glo, Nj0glo, jpkglo, l_Iperio, l_Jperio, l_NFold, c_NFtype ) 383 383 ENDIF 384 384 ! … … 589 589 !! *** ROUTINE nemo_alloc *** 590 590 !! 591 !! ** Purpose : Allocate all the dynamic arrays of the O PAmodules591 !! ** Purpose : Allocate all the dynamic arrays of the OCE modules 592 592 !! 593 593 !! ** Method :
Note: See TracChangeset
for help on using the changeset viewer.