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 12675 for NEMO/branches/UKMO/NEMO_4.0.1_icesheet_and_river_coupling/src/OCE/SBC/cpl_rnf_1d.F90 – NEMO

Ignore:
Timestamp:
2020-04-03T18:00:43+02:00 (2 years ago)
Author:
dancopsey
Message:

Fix compile errors.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/UKMO/NEMO_4.0.1_icesheet_and_river_coupling/src/OCE/SBC/cpl_rnf_1d.F90

    r12580 r12675  
    1919   USE lib_mpp         ! MPP library 
    2020   USE iom 
    21    USE wrk_nemo        ! Memory allocation 
    2221   USE dom_oce         ! Domain sizes (for grid box area e1e2t) 
    2322   USE sbc_oce         ! Surface boundary condition: ocean fields 
     
    3130    
    3231   TYPE, PUBLIC ::   RIVERS_DATA     !: Storage for river outflow data 
    33       INTEGER, POINTER, DIMENSION(:,:)    ::   river_number       !: River outflow number 
    34       REAL(wp), POINTER, DIMENSION(:)     ::   river_area         ! 1D array listing areas of each river outflow (m2) 
    35       COMPLEX(wp), POINTER, DIMENSION(:)  ::   river_area_c       ! Comlex version of river_area for use in bit reproducible sums (m2) 
     32      INTEGER, ALLOCATABLE, DIMENSION(:,:)    ::   river_number       !: River outflow number 
     33      REAL(wp), ALLOCATABLE, DIMENSION(:)     ::   river_area         ! 1D array listing areas of each river outflow (m2) 
     34      COMPLEX(wp), ALLOCATABLE, DIMENSION(:)  ::   river_area_c       ! Comlex version of river_area for use in bit reproducible sums (m2) 
    3635   END TYPE RIVERS_DATA 
    3736    
     
    6059      INTEGER                                   ::   ii, jj, rr          !: Loop indices 
    6160      INTEGER                                   ::   max_river 
    62       REAL(wp), POINTER, DIMENSION(:,:)         ::   river_number        ! 2D array containing the river outflow numbers 
     61      REAL(wp), DIMENSION(jpi,jpj)              ::   river_number        ! 2D array containing the river outflow numbers 
    6362       
    6463      NAMELIST/nam_cpl_rnf_1d/file_riv_number, nn_cpl_river, ln_print_river_info 
    6564      !!---------------------------------------------------------------------- 
    6665 
    67       IF( nn_timing == 1 ) CALL timing_start('cpl_rnf_1d_init') 
     66      IF( ln_timing ) CALL timing_start('cpl_rnf_1d_init') 
    6867       
    6968      IF(lwp) WRITE(numout,*) 
    7069      IF(lwp) WRITE(numout,*) 'cpl_rnf_1d_init : initialization of river runoff coupling' 
    7170      IF(lwp) WRITE(numout,*) '~~~~~~~~~~~~' 
    72       IF(lwp .AND. lflush) CALL flush(numout) 
     71      IF(lwp) CALL flush(numout) 
    7372       
    7473      REWIND(numnam_cfg) 
     
    7675      ! Read the namelist 
    7776      READ  ( numnam_ref, nam_cpl_rnf_1d, IOSTAT = ios, ERR = 901) 
    78 901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_cpl_rnf_1d in reference namelist', lwp ) 
     77901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_cpl_rnf_1d in reference namelist' ) 
    7978      READ  ( numnam_cfg, nam_cpl_rnf_1d, IOSTAT = ios, ERR = 902 ) 
    80 902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_cpl_rnf_1d in configuration namelist', lwp ) 
     79902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_cpl_rnf_1d in configuration namelist' ) 
    8180      IF(lwm .AND. nprint > 2) WRITE ( numond, nam_cpl_rnf_1d ) 
    8281 
     
    8887      IF(lwp) WRITE(numout,*) '             Print river information = ',ln_print_river_info 
    8988      IF(lwp) WRITE(numout,*) ' ' 
    90       IF(lwp .AND. lflush) CALL flush(numout) 
    91        
     89      IF(lwp) CALL flush(numout) 
     90 
    9291      ! Assign space for river numbers 
    9392      ALLOCATE( rivers%river_number( jpi, jpj ) ) 
    94       CALL wrk_alloc( jpi, jpj, river_number ) 
    9593       
    9694      ! Read the river numbers from netcdf file 
     
    113111      IF ( ln_print_river_info .AND. lwp) THEN 
    114112         WRITE(numout,*) 'Maximum river number in input file = ',max_river 
    115          IF(lflush) CALL flush(numout) 
     113         CALL flush(numout) 
    116114      END IF 
    117115       
     
    132130       
    133131      ! Use mpp_sum to add together river areas on other processors 
    134       CALL mpp_sum( rivers%river_area_c, nn_cpl_river ) 
     132      CALL mpp_sum( 'cpl_rnf_1d', rivers%river_area_c ) 
    135133       
    136134      ! Convert from complex number to real 
     
    142140      IF ( ln_print_river_info .AND. lwp) THEN 
    143141        WRITE(numout,*) 'Area of rivers 1 to 10 are ',rivers%river_area(1:10) 
    144         IF(lflush) CALL flush(numout) 
     142        CALL flush(numout) 
    145143      END IF 
    146144       
Note: See TracChangeset for help on using the changeset viewer.