New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 13145 for utils/tools_dev_r12970_AGRIF_CMEMS/DOMAINcfg/src/lib_mpp.F90 – NEMO

Ignore:
Timestamp:
2020-06-23T13:51:37+02:00 (4 years ago)
Author:
rblod
Message:

ticket #2129 : compilation issues in Domaincfg

File:
1 edited

Legend:

Unmodified
Added
Removed
  • utils/tools_dev_r12970_AGRIF_CMEMS/DOMAINcfg/src/lib_mpp.F90

    r13056 r13145  
    15291529      ENDIF 
    15301530   END SUBROUTINE mpp_report 
    1531  
    1532     
    1533    SUBROUTINE tic_tac (ld_tic, ld_global) 
    1534  
    1535     LOGICAL,           INTENT(IN) :: ld_tic 
    1536     LOGICAL, OPTIONAL, INTENT(IN) :: ld_global 
    1537     REAL(wp), DIMENSION(2), SAVE :: tic_wt 
    1538     REAL(wp),               SAVE :: tic_ct = 0._wp 
    1539     INTEGER :: ii 
    1540  
    1541     IF( ncom_stp <= nit000 ) RETURN 
    1542     IF( ncom_stp == nitend ) RETURN 
    1543     ii = 1 
    1544     IF( PRESENT( ld_global ) ) THEN 
    1545        IF( ld_global ) ii = 2 
    1546     END IF 
    1547      
    1548     IF ( ld_tic ) THEN 
    1549        tic_wt(ii) = MPI_Wtime()                                                    ! start count tic->tac (waiting time) 
    1550        IF ( tic_ct > 0.0_wp ) compute_time = compute_time + MPI_Wtime() - tic_ct   ! cumulate count tac->tic 
    1551     ELSE 
    1552        waiting_time(ii) = waiting_time(ii) + MPI_Wtime() - tic_wt(ii)              ! cumulate count tic->tac 
    1553        tic_ct = MPI_Wtime()                                                        ! start count tac->tic (waiting time) 
    1554     ENDIF 
    1555      
    1556    END SUBROUTINE tic_tac 
    1557  
    15581531    
    15591532#else 
     
    18411814      IF( numstp     /= -1 )   CALL FLUSH(numstp    ) 
    18421815      IF( numrun     /= -1 )   CALL FLUSH(numrun    ) 
    1843       IF( numevo_ice /= -1 )   CALL FLUSH(numevo_ice) 
    18441816      ! 
    18451817      IF( cd1 == 'STOP' ) THEN 
Note: See TracChangeset for help on using the changeset viewer.