- Timestamp:
- 2020-11-26T15:24:38+01:00 (4 years ago)
- Location:
- NEMO/branches/2020/dev_r13541_TOP-01_rlod_Antarctic_ice_Sheet_Fe_Source
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r13541_TOP-01_rlod_Antarctic_ice_Sheet_Fe_Source
- Property svn:externals
-
old new 8 8 9 9 # SETTE 10 ^/utils/CI/sette@135 07sette10 ^/utils/CI/sette@13559 sette
-
- Property svn:externals
-
NEMO/branches/2020/dev_r13541_TOP-01_rlod_Antarctic_ice_Sheet_Fe_Source/src/OFF/nemogcm.F90
r13286 r13886 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 ! 117 128 IF( istp /= nit000 ) CALL day ( istp ) ! Calendar (day was already called at nit000 in day_init) … … 147 158 #endif 148 159 #endif 149 160 CALL stp_ctl ( istp ) ! Time loop: control and print 150 161 istp = istp + 1 162 163 IF( lwp .AND. ln_timing ) WRITE(numtime,*) 'timing step ', istp-1, ' : ', MPI_Wtime() - zstptiming 164 151 165 END DO 152 166 ! … … 333 347 334 348 CALL sbc_init( Nbb, Nnn, Naa ) ! Forcings : surface module 335 CALL bdy_init ! Open boundaries initialisation 349 CALL bdy_init ! Open boundaries initialisation 350 351 CALL zdf_phy_init( Nnn ) ! Vertical physics 336 352 337 353 ! ! Tracer physics 338 354 CALL ldf_tra_init ! Lateral ocean tracer physics 339 CALL ldf_eiv_init ! Eddy induced velocity param 355 CALL ldf_eiv_init ! Eddy induced velocity param. must be done after ldf_tra_init 340 356 CALL tra_ldf_init ! lateral mixing 341 357 IF( l_ldfslp ) CALL ldf_slp_init ! slope of lateral mixing … … 351 367 CALL dta_dyn_init( Nbb, Nnn, Naa ) ! Initialization for the dynamics 352 368 #endif 353 354 369 CALL trc_init( Nbb, Nnn, Naa ) ! Passive tracers initialization 355 CALL dia_ptr_init ! Poleward TRansports initialization356 370 357 371 IF(lwp) WRITE(numout,cform_aaa) ! Flag AAAAAAA
Note: See TracChangeset
for help on using the changeset viewer.