Changeset 2636 for branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/ZDF
- Timestamp:
- 2011-03-01T20:04:06+01:00 (13 years ago)
- Location:
- branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/ZDF
- Files:
-
- 8 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/ZDF/zdf_oce.F90
r2616 r2636 9 9 USE par_oce ! ocean parameters 10 10 USE in_out_manager ! I/O manager 11 USE lib_mpp ! MPP library 11 12 12 13 IMPLICIT NONE -
branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfddm.F90
r2633 r2636 21 21 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 22 22 USE prtctl ! Print control 23 USE lib_mpp ! MPP library 23 24 24 25 IMPLICIT NONE … … 56 57 IF( zdf_ddm_alloc /= 0 ) CALL ctl_warn('zdf_ddm_alloc: failed to allocate arrays') 57 58 END FUNCTION zdf_ddm_alloc 59 58 60 59 61 SUBROUTINE zdf_ddm( kt ) … … 89 91 !! References : Merryfield et al., JPO, 29, 1124-1142, 1999. 90 92 !!---------------------------------------------------------------------- 91 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 92 USE wrk_nemo, ONLY: zmsks => wrk_2d_1, & 93 zmskf => wrk_2d_2, & 94 zmskd1 => wrk_2d_3, & 95 zmskd2 => wrk_2d_4, & 96 zmskd3 => wrk_2d_5 97 IMPLICIT none 93 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 94 USE wrk_nemo, ONLY: zmsks => wrk_2d_1 , zmskf => wrk_2d_2 , zmskd1 => wrk_2d_3 ! 2D workspace 95 USE wrk_nemo, ONLY: zmskd2 => wrk_2d_4 , zmskd3 => wrk_2d_5 ! - - 96 ! 98 97 INTEGER, INTENT(in) :: kt ! ocean time-step indexocean time step 99 ! !98 ! 100 99 INTEGER :: ji, jj , jk ! dummy loop indices 101 100 REAL(wp) :: zinr, zrr ! temporary scalars … … 105 104 106 105 IF( wrk_in_use(2, 1,2,3,4,5) ) THEN 107 CALL ctl_stop('zdf_ddm: Requested workspace arrays already in use .') ; RETURN106 CALL ctl_stop('zdf_ddm: Requested workspace arrays already in use') ; RETURN 108 107 END IF 109 108 -
branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfgls.F90
r2633 r2636 25 25 USE restart ! only for lrst_oce 26 26 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 27 USE lib_mpp ! MPP manager 27 28 USE prtctl ! Print control 28 29 USE in_out_manager ! I/O manager … … 106 107 !!---------------------------------------------------------------------- 107 108 !! NEMO/OPA 3.3 , NEMO Consortium (2010) 108 !! $Id 109 !! $Id$ 109 110 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 110 111 !!---------------------------------------------------------------------- -
branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfkpp.F90
r2633 r2636 28 28 USE zdfddm ! double diffusion mixing 29 29 USE in_out_manager ! I/O manager 30 USE lib_mpp ! MPP library 30 31 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 31 32 USE prtctl ! Print control … … 167 168 ! 168 169 IF( lk_mpp ) CALL mpp_sum ( zdf_kpp_alloc ) 169 IF( zdf_kpp_alloc /= 0 ) CALL ctl_warn('zdf_kpp_alloc: failed to allocate arrays .')170 IF( zdf_kpp_alloc /= 0 ) CALL ctl_warn('zdf_kpp_alloc: failed to allocate arrays') 170 171 END FUNCTION zdf_kpp_alloc 171 172 … … 1236 1237 IF( wrk_not_released(1, 1,2,3,4,5,6,7,8,9,10,11,12,13,14) .OR. & 1237 1238 wrk_not_released(2, 1,2,3,4,5,6,7,8,9,10,11) .OR. & 1238 wrk_not_released_xz(1,2,3) ) CALL ctl_stop('zdf_kpp : failed to release workspace arrays .')1239 wrk_not_released_xz(1,2,3) ) CALL ctl_stop('zdf_kpp : failed to release workspace arrays') 1239 1240 ! 1240 1241 END SUBROUTINE zdf_kpp -
branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfmxl.F90
r2633 r2636 14 14 USE in_out_manager ! I/O manager 15 15 USE prtctl ! Print control 16 USE iom 16 USE iom ! I/O library 17 USE lib_mpp ! MPP library 17 18 18 19 IMPLICIT NONE … … 64 65 !!---------------------------------------------------------------------- 65 66 USE wrk_nemo, ONLY: iwrk_in_use, iwrk_not_released 66 USE wrk_nemo, ONLY: imld => iwrk_2d_1 ! 2D workspace67 USE wrk_nemo, ONLY: imld => iwrk_2d_1 ! 2D integer workspace 67 68 !! 68 69 INTEGER, INTENT( in ) :: kt ! ocean time-step index … … 74 75 !!---------------------------------------------------------------------- 75 76 76 IF( iwrk_in_use(2, 1) )THEN77 CALL ctl_stop('zdf_mxl : requested workspace array unavailable .') ; RETURN77 IF( iwrk_in_use(2, 1) )THEN 78 CALL ctl_stop('zdf_mxl : requested workspace array unavailable') ; RETURN 78 79 END IF 79 80 … … 112 113 IF(ln_ctl) CALL prt_ctl( tab2d_1=REAL(nmln,wp), clinfo1=' nmln : ', tab2d_2=hmlp, clinfo2=' hmlp : ', ovlap=1 ) 113 114 ! 114 IF( iwrk_not_released(2, 1) ) CALL ctl_stop('zdf_mxl : failed to release workspace array')115 IF( iwrk_not_released(2, 1) ) CALL ctl_stop('zdf_mxl : failed to release workspace array') 115 116 ! 116 117 END SUBROUTINE zdf_mxl -
branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfric.F90
r2633 r2636 25 25 USE in_out_manager ! I/O manager 26 26 USE lbclnk ! ocean lateral boundary condition (or mpp link) 27 USE lib_mpp ! MPP library 27 28 28 29 IMPLICIT NONE … … 57 58 ! 58 59 IF( lk_mpp ) CALL mpp_sum ( zdf_ric_alloc ) 59 IF( zdf_ric_alloc /= 0 ) CALL ctl_warn('zdf_ric_alloc: failed to allocate arrays .')60 IF( zdf_ric_alloc /= 0 ) CALL ctl_warn('zdf_ric_alloc: failed to allocate arrays') 60 61 END FUNCTION zdf_ric_alloc 61 62 … … 97 98 !!---------------------------------------------------------------------- 98 99 99 IF( wrk_in_use(2, 1) ) THEN100 IF( wrk_in_use(2, 1) ) THEN 100 101 CALL ctl_stop('zdf_ric : requested workspace array unavailable') ; RETURN 101 102 END IF … … 150 151 CALL lbc_lnk( avmu, 'U', 1. ) ; CALL lbc_lnk( avmv, 'V', 1. ) 151 152 ! 152 IF( wrk_not_released(2, 1) ) CALL ctl_stop('zdf_ric : failed to release workspace array')153 IF( wrk_not_released(2, 1) ) CALL ctl_stop('zdf_ric : failed to release workspace array') 153 154 ! 154 155 END SUBROUTINE zdf_ric -
branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/ZDF/zdftke.F90
r2633 r2636 49 49 USE in_out_manager ! I/O manager 50 50 USE iom ! I/O manager library 51 USE lib_mpp ! MPP library 51 52 52 53 IMPLICIT NONE … … 189 190 !! (= Kz dz[Ub] * dz[Un] ) 190 191 !! --------------------------------------------------------------------- 191 USE oce, zdiag => ua ! use ua as workspace 192 USE oce, zd_up => va ! use va as workspace 193 USE oce, zd_lw => ta ! use ta as workspace 194 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released, iwrk_in_use, iwrk_not_released 195 USE wrk_nemo, ONLY: imlc => iwrk_2d_1 ! 2D INTEGER workspace 196 USE wrk_nemo, ONLY: zhlc => wrk_2d_1 ! 2D REAL workspace 197 USE wrk_nemo, ONLY: zpelc => wrk_3d_1 ! 3D REAL workspace 192 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released, iwrk_in_use, iwrk_not_released 193 USE oce , ONLY: zdiag => ua , zd_up => va , zd_lw => ta ! (ua,va,ta) used as workspace 194 USE wrk_nemo, ONLY: imlc => iwrk_2d_1 ! 2D INTEGER workspace 195 USE wrk_nemo, ONLY: zhlc => wrk_2d_1 ! 2D REAL workspace 196 USE wrk_nemo, ONLY: zpelc => wrk_3d_1 ! 3D REAL workspace 198 197 !! 199 198 INTEGER :: ji, jj, jk ! dummy loop arguments -
branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/ZDF/zdftmx.F90
r2633 r2636 24 24 USE in_out_manager ! I/O manager 25 25 USE iom ! I/O Manager 26 USE lib_mpp ! MPP library 26 27 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 27 28
Note: See TracChangeset
for help on using the changeset viewer.