Changeset 872 for codes/icosagcm/trunk/src
- Timestamp:
- 05/17/19 16:16:29 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/trunk/src/physics/physics_external.F90
r871 r872 109 109 ENDDO 110 110 111 IF (is_omp_master) CALL xios_timer_suspend("dynamico")111 ! IF (is_omp_master) CALL xios_timer_suspend("dynamico") 112 112 it = it_-1 + itau_physics 113 113 CALL external_physics 114 IF (is_omp_master) CALL xios_timer_resume("dynamico")114 ! IF (is_omp_master) CALL xios_timer_resume("dynamico") 115 115 116 116 DO ind=1, ndomain … … 168 168 IF (MOD(it_,itau_physics)==0) THEN 169 169 it=it_ 170 IF (is_omp_master) CALL xios_timer_suspend("dynamico")170 ! IF (is_omp_master) CALL xios_timer_suspend("dynamico") 171 171 CALL external_physics 172 IF (is_omp_master) CALL xios_timer_resume("dynamico")172 ! IF (is_omp_master) CALL xios_timer_resume("dynamico") 173 173 ENDIF 174 174
Note: See TracChangeset
for help on using the changeset viewer.