Changeset 7426
- Timestamp:
- 2016-12-01T18:46:13+01:00 (8 years ago)
- 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 33 33 USE dynvor ! vorticity term 34 34 USE wet_dry ! wetting/drying flux limter 35 USE bdy_par ! for lk_bdy36 35 USE bdytides ! open boundary condition data 37 36 USE bdydyn2d ! open boundary conditions on barotropic variables -
branches/2016/dev_merge_2016/NEMOGCM/NEMO/OPA_SRC/USR/usrdef_closea.F90
r7200 r7426 214 214 ! 215 215 ! ! 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 ) 224 222 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 238 227 239 228 IF(lwp) WRITE(numout,*)' Closed sea surfaces' -
branches/2016/dev_merge_2016/NEMOGCM/NEMO/OPA_SRC/USR/usrdef_sbc.F90
r7355 r7426 131 131 END DO 132 132 END DO 133 134 !!gm ===>>> The following lines are to be de-commented135 !! Commented here as they change the GYRE results136 !#if !defined key_mpp_rep137 ! CALL ctl_stop( 'usrdef_sbc_oce: key_mpp_rep is required to run GYRE configuration')138 !#endif139 !!gm140 133 141 134 zsumemp = GLOB_SUM( emp (:,:) ) -
branches/2016/dev_merge_2016/NEMOGCM/NEMO/SAS_SRC/nemogcm.F90
r7421 r7426 32 32 USE bdyini ! open boundary cond. setting (bdy_init routine). clem: mandatory for LIM3 33 33 USE bdydta ! open boundary cond. setting (bdy_dta_init routine). clem: mandatory for LIM3 34 USE bdy_par35 34 ! 36 35 USE lib_mpp ! distributed memory computing -
branches/2016/dev_merge_2016/NEMOGCM/NEMO/SAS_SRC/step.F90
r7421 r7426 24 24 USE diawri ! Standard run outputs (dia_wri routine) 25 25 USE bdy_oce , ONLY: ln_bdy 26 USE bdy_par ! clem: mandatory for LIM327 26 USE bdydta ! clem: mandatory for LIM3 28 27 USE stpctl ! time stepping control (stp_ctl routine)
Note: See TracChangeset
for help on using the changeset viewer.