Changeset 2715 for trunk/NEMOGCM/NEMO/OPA_SRC/SOL/solsor.F90
- Timestamp:
- 2011-03-30T17:58:35+02:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/SOL/solsor.F90
r2528 r2715 32 32 !! NEMO/OPA 3.3 , NEMO Consortium (2010) 33 33 !! $Id$ 34 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)34 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 35 35 !!---------------------------------------------------------------------- 36 37 36 CONTAINS 38 37 … … 58 57 !! Beare and Stevens 1997 Ann. Geophysicae 15, 1369-1377 59 58 !!---------------------------------------------------------------------- 59 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 60 USE wrk_nemo, ONLY: ztab => wrk_2d_1 ! 2D workspace 61 !! 60 62 INTEGER, INTENT(inout) :: kindic ! solver indicator, < 0 if the convergence is not reached: 61 63 ! ! the model is stopped in step (set to zero before the call of solsor) 62 64 !! 63 INTEGER :: ji, jj, jn ! dummy loop indices 64 INTEGER :: ishift, icount 65 INTEGER :: ijmppodd, ijmppeven, ijpr2d 66 REAL(wp) :: ztmp, zres, zres2 67 REAL(wp), DIMENSION(jpi,jpj) ::ztab 65 INTEGER :: ji, jj, jn ! dummy loop indices 66 INTEGER :: ishift, icount, ijmppodd, ijmppeven, ijpr2d ! local integers 67 REAL(wp) :: ztmp, zres, zres2 ! local scalars 68 68 !!---------------------------------------------------------------------- 69 69 70 IF( wrk_in_use(2, 1) )THEN 71 CALL ctl_stop('sol_sor: requested workspace array is unavailable') ; RETURN 72 ENDIF 73 70 74 ijmppeven = MOD( nimpp+njmpp+jpr2di+jpr2dj , 2 ) 71 75 ijmppodd = MOD( nimpp+njmpp+jpr2di+jpr2dj+1 , 2 ) … … 163 167 ! ------------- 164 168 CALL lbc_lnk_e( gcx, c_solver_pt, 1. ) ! boundary conditions 169 ! 170 IF( wrk_not_released(2, 1) ) CALL ctl_stop('sol_sor: failed to release workspace array') 165 171 ! 166 172 END SUBROUTINE sol_sor
Note: See TracChangeset
for help on using the changeset viewer.