Changeset 7426


Ignore:
Timestamp:
2016-12-01T18:46:13+01:00 (5 years ago)
Author:
timgraham
Message:

#1811 Remove remaining references to lk_mpp_rep and USE bdy_par statements

Location:
branches/2016/dev_merge_2016/NEMOGCM/NEMO
Files:
5 edited

Legend:

Unmodified
Added
Removed
  • branches/2016/dev_merge_2016/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_ts.F90

    r7421 r7426  
    3333   USE dynvor          ! vorticity term 
    3434   USE wet_dry         ! wetting/drying flux limter 
    35    USE bdy_par         ! for lk_bdy 
    3635   USE bdytides        ! open boundary condition data 
    3736   USE bdydyn2d        ! open boundary conditions on barotropic variables 
  • branches/2016/dev_merge_2016/NEMOGCM/NEMO/OPA_SRC/USR/usrdef_closea.F90

    r7200 r7426  
    214214         ! 
    215215         !                                        ! surface of closed seas  
    216          IF( lk_mpp_rep ) THEN                         ! MPP reproductible calculation 
    217             DO jc = 1, jpncs 
    218                ctmp = CMPLX( 0.e0, 0.e0, wp ) 
    219                DO jj = ncsj1(jc), ncsj2(jc) 
    220                   DO ji = ncsi1(jc), ncsi2(jc) 
    221                      ztmp = e1e2t(ji,jj) * tmask_i(ji,jj) 
    222                      CALL DDPDD( CMPLX( ztmp, 0.e0, wp ), ctmp ) 
    223                   END DO  
     216         DO jc = 1, jpncs 
     217            ctmp = CMPLX( 0.e0, 0.e0, wp ) 
     218            DO jj = ncsj1(jc), ncsj2(jc) 
     219               DO ji = ncsi1(jc), ncsi2(jc) 
     220                  ztmp = e1e2t(ji,jj) * tmask_i(ji,jj) 
     221                  CALL DDPDD( CMPLX( ztmp, 0.e0, wp ), ctmp ) 
    224222               END DO  
    225                IF( lk_mpp )   CALL mpp_sum( ctmp ) 
    226                surf(jc) = REAL(ctmp,wp) 
    227             END DO 
    228          ELSE                                          ! Standard calculation            
    229             DO jc = 1, jpncs 
    230                DO jj = ncsj1(jc), ncsj2(jc) 
    231                   DO ji = ncsi1(jc), ncsi2(jc) 
    232                      surf(jc) = surf(jc) + e1e2t(ji,jj) * tmask_i(ji,jj)      ! surface of closed seas 
    233                   END DO  
    234                END DO  
    235             END DO  
    236             IF( lk_mpp )   CALL mpp_sum ( surf, jpncs )       ! mpp: sum over all the global domain 
    237          ENDIF 
     223            END DO  
     224            IF( lk_mpp )   CALL mpp_sum( ctmp ) 
     225            surf(jc) = REAL(ctmp,wp) 
     226         END DO 
    238227 
    239228         IF(lwp) WRITE(numout,*)'     Closed sea surfaces' 
  • branches/2016/dev_merge_2016/NEMOGCM/NEMO/OPA_SRC/USR/usrdef_sbc.F90

    r7355 r7426  
    131131         END DO 
    132132      END DO 
    133  
    134 !!gm  ===>>> The following lines are to be de-commented 
    135 !!    Commented here as they change the GYRE results  
    136 !#if !defined key_mpp_rep 
    137 !      CALL ctl_stop( 'usrdef_sbc_oce: key_mpp_rep is required to run GYRE configuration') 
    138 !#endif 
    139 !!gm 
    140133 
    141134      zsumemp = GLOB_SUM( emp  (:,:)   )  
  • branches/2016/dev_merge_2016/NEMOGCM/NEMO/SAS_SRC/nemogcm.F90

    r7421 r7426  
    3232   USE bdyini         ! open boundary cond. setting       (bdy_init routine). clem: mandatory for LIM3 
    3333   USE bdydta         ! open boundary cond. setting   (bdy_dta_init routine). clem: mandatory for LIM3 
    34    USE bdy_par 
    3534   ! 
    3635   USE lib_mpp        ! distributed memory computing 
  • branches/2016/dev_merge_2016/NEMOGCM/NEMO/SAS_SRC/step.F90

    r7421 r7426  
    2424   USE diawri           ! Standard run outputs             (dia_wri routine) 
    2525   USE bdy_oce   , ONLY: ln_bdy 
    26    USE bdy_par          ! clem: mandatory for LIM3 
    2726   USE bdydta           ! clem: mandatory for LIM3 
    2827   USE stpctl           ! time stepping control            (stp_ctl routine) 
Note: See TracChangeset for help on using the changeset viewer.