Changeset 14644 for NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OFF/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/OFF/nemogcm.F90
r14053 r14644 57 57 USE mppini ! shared/distributed memory setting (mpp_init routine) 58 58 USE lib_mpp ! distributed memory computing 59 #if defined key_ iomput59 #if defined key_xios 60 60 USE xios ! xIOserver 61 61 #endif … … 77 77 78 78 CHARACTER (len=64) :: cform_aaa="( /, 'AAAAAAAA', / ) " ! flag for output listing 79 #if defined key_mpp_mpi79 #if ! defined key_mpi_off 80 80 ! need MPI_Wtime 81 81 INCLUDE 'mpif.h' … … 138 138 IF( istp /= nit000 ) CALL day ( istp ) ! Calendar (day was already called at nit000 in day_init) 139 139 CALL iom_setkt ( istp - nit000 + 1, cxios_context ) ! say to iom that we are at time step kstp 140 #if defined key_sed_off 141 CALL dta_dyn_sed( istp, Nnn ) ! Interpolation of the dynamical fields 142 #else 140 #if ! defined key_sed_off 143 141 CALL dta_dyn ( istp, Nbb, Nnn, Naa ) ! Interpolation of the dynamical fields 144 #endif145 #if ! defined key_sed_off146 142 IF( .NOT.ln_linssh ) THEN 147 143 CALL dta_dyn_atf( istp, Nbb, Nnn, Naa ) ! time filter of sea surface height and vertical scale factors … … 151 147 ENDIF 152 148 CALL trc_stp ( istp, Nbb, Nnn, Nrhs, Naa ) ! time-stepping 153 # if defined key_qco154 !r3t(:,:,Nnn) = r3t_f(:,:) ! update ssh to h0 ratio155 !r3u(:,:,Nnn) = r3u_f(:,:)156 !r3v(:,:,Nnn) = r3v_f(:,:)157 # endif158 #endif159 149 ! Swap time levels 160 150 Nrhs = Nbb 161 Nbb = Nnn162 Nnn = Naa163 Naa = Nrhs151 Nbb = Nnn 152 Nnn = Naa 153 Naa = Nrhs 164 154 ! 165 155 #if ! defined key_qco 166 # if ! defined key_sed_off167 156 IF( .NOT.ln_linssh ) CALL dta_dyn_sf_interp( istp, Nnn ) ! calculate now grid parameters 168 # endif 169 #endif 157 #endif 158 159 #else 160 CALL dta_dyn_sed( istp, Nnn ) ! Interpolation of the dynamical fields 161 162 #endif 170 163 CALL stp_ctl ( istp ) ! Time loop: control and print 171 164 istp = istp + 1 … … 175 168 END DO 176 169 ! 177 #if defined key_ iomput170 #if defined key_xios 178 171 CALL iom_context_finalize( cxios_context ) ! needed for XIOS+AGRIF 179 172 #endif … … 194 187 CALL nemo_closefile 195 188 ! 196 #if defined key_ iomput189 #if defined key_xios 197 190 CALL xios_finalize ! end mpp communications with xios 198 191 #else … … 230 223 ! !-------------------------------------------------! 231 224 ! 232 #if defined key_ iomput225 #if defined key_xios 233 226 CALL xios_initialize( "for_xios_mpi_id", return_comm=ilocal_comm ) ! nemo local communicator given by xios 234 227 CALL mpp_start( ilocal_comm ) … … 316 309 ! 317 310 IF( ln_read_cfg ) THEN ! Read sizes in domain configuration file 318 CALL domain_cfg ( cn_cfg, nn_cfg, Ni0glo, Nj0glo, jpkglo, jperio)311 CALL domain_cfg ( cn_cfg, nn_cfg, Ni0glo, Nj0glo, jpkglo, l_Iperio, l_Jperio, l_NFold, c_NFtype ) 319 312 ELSE ! user-defined namelist 320 CALL usr_def_nam( cn_cfg, nn_cfg, Ni0glo, Nj0glo, jpkglo, jperio)313 CALL usr_def_nam( cn_cfg, nn_cfg, Ni0glo, Nj0glo, jpkglo, l_Iperio, l_Jperio, l_NFold, c_NFtype ) 321 314 ENDIF 322 315 ! … … 456 449 !! *** ROUTINE nemo_alloc *** 457 450 !! 458 !! ** Purpose : Allocate all the dynamic arrays of the O PAmodules451 !! ** Purpose : Allocate all the dynamic arrays of the OCE modules 459 452 !! 460 453 !! ** Method :
Note: See TracChangeset
for help on using the changeset viewer.