Changeset 13555 for NEMO/trunk/src/SAS
- Timestamp:
- 2020-10-02T10:29:13+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/SAS/nemogcm.F90
r13546 r13555 2 2 !!====================================================================== 3 3 !! *** MODULE nemogcm *** 4 !! StandAlone Surface module : surface fluxes + sea-ice + iceberg floats 4 !! StandAlone Surface module : surface fluxes + sea-ice + iceberg floats + ABL 5 5 !!====================================================================== 6 6 !! History : 3.6 ! 2011-11 (S. Alderson, G. Madec) original code … … 58 58 59 59 #if defined key_mpp_mpi 60 ! need MPI_Wtime 60 61 INCLUDE 'mpif.h' 61 62 #endif … … 83 84 !!---------------------------------------------------------------------- 84 85 INTEGER :: istp ! time step index 86 REAL(wp):: zstptiming ! elapsed time for 1 time step 85 87 !!---------------------------------------------------------------------- 86 88 ! … … 93 95 #if defined key_agrif 94 96 Kbb_a = Nbb; Kmm_a = Nnn; Krhs_a = Nrhs ! agrif_oce module copies of time level indices 95 CALL Agrif_Declare_Var ! " " " " " DYN/TRA 97 CALL Agrif_Declare_Var ! " " " " " DYN/TRA 96 98 # if defined key_top 97 99 CALL Agrif_Declare_Var_top ! " " " " " TOP … … 107 109 ! !== time stepping ==! 108 110 ! !-----------------------! 111 ! 112 ! !== set the model time-step ==! 113 ! 109 114 istp = nit000 110 115 ! … … 124 129 END DO 125 130 ! 126 # else131 # else 127 132 ! 128 133 IF( .NOT.ln_diurnal_only ) THEN !== Standard time-stepping ==! 129 134 ! 130 135 DO WHILE( istp <= nitend .AND. nstop == 0 ) 131 #if defined key_mpp_mpi 136 132 137 ncom_stp = istp 133 IF ( istp == ( nit000 + 1 ) ) elapsed_time = MPI_Wtime() 134 IF ( istp == nitend ) elapsed_time = MPI_Wtime() - elapsed_time 135 #endif 138 IF( ln_timing ) THEN 139 zstptiming = MPI_Wtime() 140 IF ( istp == ( nit000 + 1 ) ) elapsed_time = zstptiming 141 IF ( istp == nitend ) elapsed_time = zstptiming - elapsed_time 142 ENDIF 143 136 144 CALL stp ( istp ) 137 145 istp = istp + 1 146 147 IF( lwp .AND. ln_timing ) WRITE(numtime,*) 'timing step ', istp-1, ' : ', MPI_Wtime() - zstptiming 148 138 149 END DO 139 150 ! … … 305 316 WRITE(numout,*) " ) ) \) |`\ \) '. \ ( ( " 306 317 WRITE(numout,*) " ( ( \_/ '-._\ ) ) " 307 WRITE(numout,*) " ) ) jgs `( ( "318 WRITE(numout,*) " ) ) jgs ` ( ( " 308 319 WRITE(numout,*) " ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ " 309 320 WRITE(numout,*)
Note: See TracChangeset
for help on using the changeset viewer.