Changeset 2633 for branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/TRD
- Timestamp:
- 2011-02-28T18:23:23+01:00 (13 years ago)
- Location:
- branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/TRD
- Files:
-
- 5 edited
-
trdicp.F90 (modified) (3 diffs)
-
trdmld.F90 (modified) (6 diffs)
-
trdmod.F90 (modified) (3 diffs)
-
trdtra.F90 (modified) (3 diffs)
-
trdvor.F90 (modified) (9 diffs)
Legend:
- Unmodified
- Added
- Removed
-
branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/TRD/trdicp.F90
r2590 r2633 344 344 !! ** Purpose : write dynamic trends in ocean.output 345 345 !!---------------------------------------------------------------------- 346 USE wrk_nemo, ONLY: wrk_ use, wrk_release346 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 347 347 USE wrk_nemo, ONLY: zkepe => wrk_3d_1, zkx => wrk_3d_2, & 348 348 zky => wrk_3d_3, zkz => wrk_3d_4 … … 353 353 !!---------------------------------------------------------------------- 354 354 355 IF( .NOT. wrk_use(3, 1,2,3,4))THEN355 IF(wrk_in_use(3, 1,2,3,4))THEN 356 356 CALL ctl_stop('trd_dwr : requested workspace arrays unavailable.') 357 357 RETURN … … 550 550 ENDIF 551 551 ! 552 IF( .NOT. wrk_release(3, 1,2,3,4))THEN552 IF(wrk_not_released(3, 1,2,3,4))THEN 553 553 CALL ctl_stop('trd_dwr : failed to release workspace arrays.') 554 554 END IF -
branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/TRD/trdmld.F90
r2629 r2633 93 93 !! surface and the control surface is called "mixed-layer" 94 94 !!---------------------------------------------------------------------- 95 USE wrk_nemo, ONLY: wrk_ use, wrk_release95 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 96 96 USE wrk_nemo, ONLY: zvlmsk => wrk_2d_1 97 97 ! … … 104 104 !!---------------------------------------------------------------------- 105 105 106 IF( .NOT. wrk_use(2, 1) ) THEN106 IF(wrk_in_use(2, 1) ) THEN 107 107 CALL ctl_stop('trd_mld_zint : requested workspace arrays unavailable') ; RETURN 108 108 ENDIF … … 195 195 END SELECT 196 196 ! 197 IF( .NOT. wrk_release(2, 1) ) CALL ctl_stop('trd_mld_zint : failed to release workspace arrays')197 IF(wrk_not_released(2, 1) ) CALL ctl_stop('trd_mld_zint : failed to release workspace arrays') 198 198 ! 199 199 END SUBROUTINE trd_mld_zint … … 247 247 !! - See NEMO documentation (in preparation) 248 248 !!---------------------------------------------------------------------- 249 USE wrk_nemo, ONLY: wrk_ use, wrk_release249 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 250 250 USE wrk_nemo, ONLY: ztmltot => wrk_2d_1, zsmltot => wrk_2d_2 ! dT/dt over the anlysis window (including Asselin) 251 251 USE wrk_nemo, ONLY: ztmlres => wrk_2d_3, zsmlres => wrk_2d_4 ! residual = dh/dt entrainment term … … 269 269 270 270 ! Check that the workspace arrays are all OK to be used 271 IF( .NOT. wrk_use(2, 1,2,3,4,5,6,7,8,9,10,11,12,13,14) .OR. &272 .NOT. wrk_use(3, 1,2) ) THEN271 IF( wrk_in_use(2, 1,2,3,4,5,6,7,8,9,10,11,12,13,14) .OR. & 272 wrk_in_use(3, 1,2) ) THEN 273 273 CALL ctl_stop('trd_mld : requested workspace arrays unavailable') ; RETURN 274 274 ELSE IF(jpltrd > jpk) THEN … … 740 740 IF( lrst_oce ) CALL trd_mld_rst_write( kt ) 741 741 742 IF( .NOT. wrk_release(2, 1,2,3,4,5,6,7,8,9,10,11,12,13,14) .OR. &743 .NOT. wrk_release(3, 1,2) ) &742 IF( wrk_not_released(2, 1,2,3,4,5,6,7,8,9,10,11,12,13,14) .OR. & 743 wrk_not_released(3, 1,2) ) & 744 744 CALL ctl_stop('trd_mld : failed to release workspace arrays.') 745 745 ! -
branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/TRD/trdmod.F90
r2629 r2633 51 51 !! integral constraints 52 52 !!---------------------------------------------------------------------- 53 USE wrk_nemo, ONLY: wrk_ use, wrk_release53 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 54 54 USE wrk_nemo, ONLY: ztswu => wrk_2d_1, & 55 55 ztswv => wrk_2d_2, & … … 68 68 !!---------------------------------------------------------------------- 69 69 70 IF( .not. wrk_use(2, 1,2,3,4,5,6))THEN70 IF(wrk_in_use(2, 1,2,3,4,5,6))THEN 71 71 CALL ctl_warn('trd_mod: Requested workspace arrays already in use.') ; RETURN 72 72 END IF … … 226 226 ENDIF 227 227 ! 228 IF( .not. wrk_release(2, 1,2,3,4,5,6) ) CALL ctl_warn('trd_mod: Failed to release workspace arrays.')228 IF( wrk_not_released(2, 1,2,3,4,5,6) ) CALL ctl_warn('trd_mod: Failed to release workspace arrays.') 229 229 ! 230 230 END SUBROUTINE trd_mod -
branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/TRD/trdtra.F90
r2629 r2633 60 60 !! nn_ctls > 1 : use fixed level surface jk = nn_ctls 61 61 !!---------------------------------------------------------------------- 62 USE wrk_nemo, ONLY: wrk_ use, wrk_release62 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 63 63 USE wrk_nemo, ONLY: ztrds => wrk_3d_1 64 64 INTEGER , INTENT(in) :: kt ! time step … … 71 71 !!---------------------------------------------------------------------- 72 72 73 IF( .NOT. wrk_use(3, 1) ) THEN73 IF(wrk_in_use(3, 1) ) THEN 74 74 CALL ctl_stop('trd_tra: requested workspace array unavailable.') ; RETURN 75 75 ENDIF … … 136 136 ENDIF 137 137 ! 138 IF( .NOT. wrk_release(3, 1) ) CALL ctl_stop('trd_tra: failed to release workspace array.')138 IF(wrk_not_released(3, 1) ) CALL ctl_stop('trd_tra: failed to release workspace array.') 139 139 ! 140 140 END SUBROUTINE trd_tra -
branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/TRD/trdvor.F90
r2629 r2633 108 108 !! trends output in netCDF format using ioipsl 109 109 !!---------------------------------------------------------------------- 110 USE wrk_nemo, ONLY: wrk_ use, wrk_release110 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 111 111 USE wrk_nemo, ONLY: zudpvor => wrk_2d_1, & ! total cmulative trends 112 112 zvdpvor => wrk_2d_2 … … 120 120 !!---------------------------------------------------------------------- 121 121 122 IF( .NOT. wrk_use(2, 1,2))THEN122 IF(wrk_in_use(2, 1,2))THEN 123 123 CALL ctl_stop('trd_vor_zint_2d : requested workspace arrays unavailable.') 124 124 RETURN … … 172 172 ENDIF 173 173 ! 174 IF( .NOT. wrk_release(2, 1,2))THEN174 IF(wrk_not_released(2, 1,2))THEN 175 175 CALL ctl_stop('trd_vor_zint_2d : failed to release workspace arrays.') 176 176 END IF … … 206 206 !! trends output in netCDF format using ioipsl 207 207 !!---------------------------------------------------------------------- 208 USE wrk_nemo, ONLY: wrk_ use, wrk_release208 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 209 209 USE wrk_nemo, ONLY: zubet => wrk_2d_1, zvbet => wrk_2d_2 ! Beta.V 210 210 USE wrk_nemo, ONLY: zudpvor => wrk_2d_3, zvdpvor => wrk_2d_4 ! total cmulative trends … … 217 217 !!---------------------------------------------------------------------- 218 218 219 IF( .NOT. wrk_use(2, 1,2,3,4))THEN219 IF(wrk_in_use(2, 1,2,3,4))THEN 220 220 CALL ctl_stop('trd_vor_zint_3d : requested workspace arrays unavailable.') 221 221 RETURN … … 284 284 ENDIF 285 285 ! 286 IF( .NOT. wrk_release(2, 1,2,3,4))THEN286 IF(wrk_not_released(2, 1,2,3,4))THEN 287 287 CALL ctl_stop('trd_vor_zint_3d : failed to release workspace arrays.') 288 288 END IF … … 298 298 !! and make outputs (NetCDF or DIMG format) 299 299 !!---------------------------------------------------------------------- 300 USE wrk_nemo, ONLY: wrk_ use, wrk_release300 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 301 301 USE wrk_nemo, ONLY: zun => wrk_2d_1, zvn => wrk_2d_2 ! 2D workspace 302 302 !! … … 308 308 !!---------------------------------------------------------------------- 309 309 310 IF( .NOT. wrk_use(2, 1,2))THEN310 IF(wrk_in_use(2, 1,2))THEN 311 311 CALL ctl_stop('trd_vor : requested workspace arrays unavailable.') 312 312 RETURN … … 478 478 IF( kt == nitend ) CALL histclo( nidvor ) 479 479 ! 480 IF( .NOT. wrk_release(2, 1,2) ) CALL ctl_stop('trd_vor : failed to release workspace arrays')480 IF(wrk_not_released(2, 1,2) ) CALL ctl_stop('trd_vor : failed to release workspace arrays') 481 481 ! 482 482 END SUBROUTINE trd_vor
Note: See TracChangeset
for help on using the changeset viewer.
