Changeset 2696


Ignore:
Timestamp:
2011-03-16T09:03:19+01:00 (10 years ago)
Author:
rblod
Message:

Compatibility with key_traldf_ano for dynamic memory

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  
    9393      USE oce     , ONLY:   zftu => ua       , zftv  => va         ! (ua,va) used as workspace 
    9494      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 workspace 
     95      USE wrk_nemo, ONLY:   zdit => wrk_3d_6 , zdjt  => wrk_3d_7 , ztfw => wrk_3d_8   ! 3D workspace 
    9696      ! 
    9797      INTEGER                              , INTENT(in   ) ::   kt         ! ocean time-step index 
     
    112112      !!---------------------------------------------------------------------- 
    113113 
    114       IF( wrk_in_use(3, 1,2,3) .OR. wrk_in_use(2, 1,2,3) ) THEN 
     114      IF( wrk_in_use(3, 6,7,8) .OR. wrk_in_use(2, 1,2,3) ) THEN 
    115115          CALL ctl_stop('tra_ldf_iso : requested workspace array unavailable')   ;   RETURN 
    116116      ENDIF 
     
    291291      END DO 
    292292      ! 
    293       IF( wrk_not_released(3, 1,2,3) .OR.   & 
     293      IF( wrk_not_released(3, 6,7,8) .OR.   & 
    294294          wrk_not_released(2, 1,2,3) )   CALL ctl_stop('tra_ldf_iso: failed to release workspace arrays') 
    295295      ! 
  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/TRA/traldf_iso_grif.F90

    r2690 r2696  
    9191      USE wrk_nemo, ONLY:   wrk_in_use, wrk_not_released 
    9292      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 workspace 
     93      USE wrk_nemo, ONLY:   zdit => wrk_3d_6 , zdjt => wrk_3d_7 , ztfw => wrk_3d_8   ! 3D workspace 
    9494      USE wrk_nemo, ONLY:   z2d  => wrk_2d_1                                         ! 2D workspace 
    9595      ! 
     
    118118      !!---------------------------------------------------------------------- 
    119119 
    120       IF( wrk_in_use(3, 1,2,3) .OR. wrk_in_use(2, 1) ) THEN 
     120      IF( wrk_in_use(3, 6,7,8) .OR. wrk_in_use(2, 1) ) THEN 
    121121         CALL ctl_stop('tra_ldf_iso_grif: requested workspace arrays unavailable.')   ;   RETURN 
    122122      ENDIF 
     
    125125      ! zdkt(:,:,1:2) instead as then wouldn't need to re-map bounds. 
    126126      ! 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) 
    128128 
    129129      IF( kt == nit000 )  THEN 
     
    348348      END DO 
    349349      ! 
    350       IF( wrk_not_released(3, 1,2,3,4) .OR.   & 
     350      IF( wrk_not_released(3, 6,7,8) .OR.   & 
    351351          wrk_not_released(2, 1)       )   CALL ctl_stop('tra_ldf_iso_grif: failed to release workspace arrays') 
    352352      ! 
  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/TRA/trazdf_exp.F90

    r2690 r2696  
    7474      !!--------------------------------------------------------------------- 
    7575      USE wrk_nemo, ONLY:   wrk_in_use, wrk_not_released 
    76       USE wrk_nemo, ONLY:   zwx => wrk_3d_1, zwy => wrk_3d_2     ! 3D workspace 
     76      USE wrk_nemo, ONLY:   zwx => wrk_3d_6, zwy => wrk_3d_7     ! 3D workspace 
    7777      ! 
    7878      INTEGER                              , INTENT(in   ) ::   kt          ! ocean time-step index 
     
    8989      !!--------------------------------------------------------------------- 
    9090 
    91       IF( wrk_in_use(3, 1,2) ) THEN 
     91      IF( wrk_in_use(3, 6,7) ) THEN 
    9292         CALL ctl_stop('tra_zdf_exp: requested workspace arrays unavailable')   ;   RETURN 
    9393      ENDIF 
     
    164164      END DO 
    165165      ! 
    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') 
    167167      ! 
    168168   END SUBROUTINE tra_zdf_exp 
  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/TRA/trazdf_imp.F90

    r2690 r2696  
    7676      USE wrk_nemo, ONLY:   wrk_in_use, wrk_not_released 
    7777      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 workspace  
     78      USE wrk_nemo, ONLY:   zwi => wrk_3d_6 , zwt => wrk_3d_7   ! 3D workspace  
    7979      ! 
    8080      INTEGER                              , INTENT(in   ) ::   kt       ! ocean time-step index 
     
    8989      !!--------------------------------------------------------------------- 
    9090 
    91       IF( wrk_in_use(3, 1,2) ) THEN 
     91      IF( wrk_in_use(3, 6,7) ) THEN 
    9292         CALL ctl_stop('tra_zdf_imp : requested workspace arrays unavailable.')   ;   RETURN 
    9393      ENDIF 
     
    228228      !                                               ! ================= ! 
    229229      ! 
    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') 
    231231      ! 
    232232   END SUBROUTINE tra_zdf_imp 
Note: See TracChangeset for help on using the changeset viewer.