Changeset 2696 for branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/TRA
- Timestamp:
- 2011-03-16T09:03:19+01:00 (13 years ago)
- Location:
- branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/TRA
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/TRA/traldf_iso.F90
r2690 r2696 93 93 USE oce , ONLY: zftu => ua , zftv => va ! (ua,va) used as workspace 94 94 USE wrk_nemo, ONLY: zdkt => wrk_2d_1 , zdk1t => wrk_2d_2 , z2d => wrk_2d_3 ! 2D workspace 95 USE wrk_nemo, ONLY: zdit => wrk_3d_ 1 , zdjt => wrk_3d_2 , ztfw => wrk_3d_3! 3D workspace95 USE wrk_nemo, ONLY: zdit => wrk_3d_6 , zdjt => wrk_3d_7 , ztfw => wrk_3d_8 ! 3D workspace 96 96 ! 97 97 INTEGER , INTENT(in ) :: kt ! ocean time-step index … … 112 112 !!---------------------------------------------------------------------- 113 113 114 IF( wrk_in_use(3, 1,2,3) .OR. wrk_in_use(2, 1,2,3) ) THEN114 IF( wrk_in_use(3, 6,7,8) .OR. wrk_in_use(2, 1,2,3) ) THEN 115 115 CALL ctl_stop('tra_ldf_iso : requested workspace array unavailable') ; RETURN 116 116 ENDIF … … 291 291 END DO 292 292 ! 293 IF( wrk_not_released(3, 1,2,3) .OR. &293 IF( wrk_not_released(3, 6,7,8) .OR. & 294 294 wrk_not_released(2, 1,2,3) ) CALL ctl_stop('tra_ldf_iso: failed to release workspace arrays') 295 295 ! -
branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/TRA/traldf_iso_grif.F90
r2690 r2696 91 91 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 92 92 USE oce , ONLY: zftu => ua , zftv => va ! (ua,va) used as 3D workspace 93 USE wrk_nemo, ONLY: zdit => wrk_3d_ 1 , zdjt => wrk_3d_2 , ztfw => wrk_3d_3! 3D workspace93 USE wrk_nemo, ONLY: zdit => wrk_3d_6 , zdjt => wrk_3d_7 , ztfw => wrk_3d_8 ! 3D workspace 94 94 USE wrk_nemo, ONLY: z2d => wrk_2d_1 ! 2D workspace 95 95 ! … … 118 118 !!---------------------------------------------------------------------- 119 119 120 IF( wrk_in_use(3, 1,2,3) .OR. wrk_in_use(2, 1) ) THEN120 IF( wrk_in_use(3, 6,7,8) .OR. wrk_in_use(2, 1) ) THEN 121 121 CALL ctl_stop('tra_ldf_iso_grif: requested workspace arrays unavailable.') ; RETURN 122 122 ENDIF … … 125 125 ! zdkt(:,:,1:2) instead as then wouldn't need to re-map bounds. 126 126 ! As it is, we make zdkt a module array and allocate it in _alloc(). 127 !zdkt(1:jpi,1:jpj,0:1) => wrk_3d_ 4(:,:,1:2)127 !zdkt(1:jpi,1:jpj,0:1) => wrk_3d_9(:,:,1:2) 128 128 129 129 IF( kt == nit000 ) THEN … … 348 348 END DO 349 349 ! 350 IF( wrk_not_released(3, 1,2,3,4) .OR. &350 IF( wrk_not_released(3, 6,7,8) .OR. & 351 351 wrk_not_released(2, 1) ) CALL ctl_stop('tra_ldf_iso_grif: failed to release workspace arrays') 352 352 ! -
branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/TRA/trazdf_exp.F90
r2690 r2696 74 74 !!--------------------------------------------------------------------- 75 75 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 76 USE wrk_nemo, ONLY: zwx => wrk_3d_ 1, zwy => wrk_3d_2! 3D workspace76 USE wrk_nemo, ONLY: zwx => wrk_3d_6, zwy => wrk_3d_7 ! 3D workspace 77 77 ! 78 78 INTEGER , INTENT(in ) :: kt ! ocean time-step index … … 89 89 !!--------------------------------------------------------------------- 90 90 91 IF( wrk_in_use(3, 1,2) ) THEN91 IF( wrk_in_use(3, 6,7) ) THEN 92 92 CALL ctl_stop('tra_zdf_exp: requested workspace arrays unavailable') ; RETURN 93 93 ENDIF … … 164 164 END DO 165 165 ! 166 IF( wrk_not_released(3, 1,2) ) CALL ctl_stop('tra_zdf_exp: failed to release workspace arrays')166 IF( wrk_not_released(3, 6,7) ) CALL ctl_stop('tra_zdf_exp: failed to release workspace arrays') 167 167 ! 168 168 END SUBROUTINE tra_zdf_exp -
branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/TRA/trazdf_imp.F90
r2690 r2696 76 76 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 77 77 USE oce , ONLY: zwd => ua , zws => va ! (ua,va) used as 3D workspace 78 USE wrk_nemo, ONLY: zwi => wrk_3d_ 1 , zwt => wrk_3d_2! 3D workspace78 USE wrk_nemo, ONLY: zwi => wrk_3d_6 , zwt => wrk_3d_7 ! 3D workspace 79 79 ! 80 80 INTEGER , INTENT(in ) :: kt ! ocean time-step index … … 89 89 !!--------------------------------------------------------------------- 90 90 91 IF( wrk_in_use(3, 1,2) ) THEN91 IF( wrk_in_use(3, 6,7) ) THEN 92 92 CALL ctl_stop('tra_zdf_imp : requested workspace arrays unavailable.') ; RETURN 93 93 ENDIF … … 228 228 ! ! ================= ! 229 229 ! 230 IF( wrk_not_released(3, 1,2) ) CALL ctl_stop('tra_zdf_imp: failed to release workspace arrays')230 IF( wrk_not_released(3, 6,7) ) CALL ctl_stop('tra_zdf_imp: failed to release workspace arrays') 231 231 ! 232 232 END SUBROUTINE tra_zdf_imp
Note: See TracChangeset
for help on using the changeset viewer.