- Timestamp:
- 2020-12-03T12:20:38+01:00 (3 years ago)
- Location:
- NEMO/branches/2020/dev_r13333_KERNEL-08_techene_gm_HPG_SPG
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r13333_KERNEL-08_techene_gm_HPG_SPG
- Property svn:externals
-
old new 8 8 9 9 # SETTE 10 ^/utils/CI/sette @13292sette10 ^/utils/CI/sette_wave@13990 sette
-
- Property svn:externals
-
NEMO/branches/2020/dev_r13333_KERNEL-08_techene_gm_HPG_SPG/src/OFF/nemogcm.F90
r13286 r14037 40 40 USE sbcmod ! surface boundary condition (sbc_init routine) 41 41 USE phycst ! physical constant (par_cst routine) 42 USE zdfphy ! vertical physics manager (zdf_phy_init routine) 42 43 USE dtadyn ! Lecture and Interpolation of the dynamical fields 43 44 USE trcini ! Initilization of the passive tracers … … 49 50 USE trcnam ! passive tracer : namelist 50 51 USE trcrst ! passive tracer restart 51 USE diaptr ! Need to initialise this as some variables are used in if statements later52 52 USE sbc_oce , ONLY : ln_rnf 53 53 USE sbcrnf ! surface boundary condition : runoffs … … 73 73 74 74 CHARACTER (len=64) :: cform_aaa="( /, 'AAAAAAAA', / ) " ! flag for output listing 75 #if defined key_mpp_mpi 76 ! need MPI_Wtime 77 INCLUDE 'mpif.h' 78 #endif 75 79 76 80 !!---------------------------------------------------------------------- … … 96 100 !!---------------------------------------------------------------------- 97 101 INTEGER :: istp ! time step index 102 REAL(wp):: zstptiming ! elapsed time for 1 time step 98 103 !!---------------------------------------------------------------------- 99 104 … … 114 119 ! 115 120 DO WHILE ( istp <= nitend .AND. nstop == 0 ) !== OFF time-stepping ==! 121 122 IF( ln_timing ) THEN 123 zstptiming = MPI_Wtime() 124 IF ( istp == ( nit000 + 1 ) ) elapsed_time = zstptiming 125 IF ( istp == nitend ) elapsed_time = zstptiming - elapsed_time 126 ENDIF 116 127 ! 128 IF((istp == nitrst) .AND. lwxios) THEN 129 CALL iom_swap( cw_toprst_cxt ) 130 CALL iom_init_closedef(cw_toprst_cxt) 131 CALL iom_setkt( istp - nit000 + 1, cw_toprst_cxt ) 132 ENDIF 133 117 134 IF( istp /= nit000 ) CALL day ( istp ) ! Calendar (day was already called at nit000 in day_init) 118 135 CALL iom_setkt ( istp - nit000 + 1, cxios_context ) ! say to iom that we are at time step kstp … … 147 164 #endif 148 165 #endif 149 166 CALL stp_ctl ( istp ) ! Time loop: control and print 150 167 istp = istp + 1 168 169 IF( lwp .AND. ln_timing ) WRITE(numtime,*) 'timing step ', istp-1, ' : ', MPI_Wtime() - zstptiming 170 151 171 END DO 152 172 ! … … 326 346 CALL eos_init ! Equation of state 327 347 IF( lk_c1d ) CALL c1d_init ! 1D column configuration 328 CALL dom_init( Nbb, Nnn, Naa , "OPA") ! Domain348 CALL dom_init( Nbb, Nnn, Naa ) ! Domain 329 349 IF( sn_cfctl%l_prtctl ) & 330 350 & CALL prt_ctl_init ! Print control … … 333 353 334 354 CALL sbc_init( Nbb, Nnn, Naa ) ! Forcings : surface module 335 CALL bdy_init ! Open boundaries initialisation 355 CALL bdy_init ! Open boundaries initialisation 356 357 CALL zdf_phy_init( Nnn ) ! Vertical physics 336 358 337 359 ! ! Tracer physics 338 360 CALL ldf_tra_init ! Lateral ocean tracer physics 339 CALL ldf_eiv_init ! Eddy induced velocity param 361 CALL ldf_eiv_init ! Eddy induced velocity param. must be done after ldf_tra_init 340 362 CALL tra_ldf_init ! lateral mixing 341 363 IF( l_ldfslp ) CALL ldf_slp_init ! slope of lateral mixing … … 351 373 CALL dta_dyn_init( Nbb, Nnn, Naa ) ! Initialization for the dynamics 352 374 #endif 353 354 375 CALL trc_init( Nbb, Nnn, Naa ) ! Passive tracers initialization 355 CALL dia_ptr_init ! Poleward TRansports initialization356 376 357 377 IF(lwp) WRITE(numout,cform_aaa) ! Flag AAAAAAA
Note: See TracChangeset
for help on using the changeset viewer.