Changeset 13145


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

ticket #2129 : compilation issues in Domaincfg

Location:
utils/tools_dev_r12970_AGRIF_CMEMS/DOMAINcfg/src
Files:
3 edited

Legend:

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

    r13109 r13145  
    55   USE agrif_parameters 
    66   USE agrif_profiles 
     7   USE lbclnk 
    78    
    89   IMPLICIT none 
  • 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 
  • utils/tools_dev_r12970_AGRIF_CMEMS/DOMAINcfg/src/mpp_nfd_generic.h90

    r13056 r13145  
    9595         l_full_nf_update = .TRUE. 
    9696 
    97          ! Two lines update (slower but necessary to avoid different values ion identical grid points 
    98          IF ( l_full_nf_update .OR.                          &    ! if coupling fields 
    99               ( ncom_stp == nit000 .AND. .NOT. ln_rstart ) ) &    ! at first time step, if not restart 
    100             ipj_s(:) = 2 
     97         ipj_s(:) = 2 
    10198 
    10299         ! Index of modifying lines in input 
Note: See TracChangeset for help on using the changeset viewer.