New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 2690 for branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DOM/domzgr.F90 – NEMO

Ignore:
Timestamp:
2011-03-15T16:27:46+01:00 (13 years ago)
Author:
gm
Message:

dynamic mem: #785 ; homogeneization of the coding style associated with dyn allocation

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DOM/domzgr.F90

    r2683 r2690  
    615615      !!---------------------------------------------------------------------- 
    616616      USE wrk_nemo, ONLY:   wrk_in_use, wrk_not_released 
    617       USE wrk_nemo, ONLY:   zbathy => wrk_2d_1 
     617      USE wrk_nemo, ONLY:   zbathy => wrk_2d_1     ! 2D workspace 
    618618      !! 
    619619      INTEGER ::   ji, jj, jl                    ! dummy loop indices 
     
    745745      !!---------------------------------------------------------------------- 
    746746      USE wrk_nemo, ONLY:   wrk_in_use, wrk_not_released 
    747       USE wrk_nemo, ONLY:   zmbk => wrk_2d_1 
     747      USE wrk_nemo, ONLY:   zmbk => wrk_2d_1    ! 2D workspace 
    748748      !! 
    749749      INTEGER ::   ji, jj   ! dummy loop indices 
     
    848848      !!---------------------------------------------------------------------- 
    849849      USE wrk_nemo, ONLY:   wrk_in_use, wrk_not_released 
    850       USE wrk_nemo, ONLY:   zprt => wrk_3d_1 
     850      USE wrk_nemo, ONLY:   zprt => wrk_3d_1    ! 3D workspace 
    851851      !! 
    852852      INTEGER  ::   ji, jj, jk       ! dummy loop indices 
     
    861861      !  
    862862      IF( wrk_in_use(3, 1) ) THEN 
    863          CALL ctl_stop('zgr_zps: requested workspace unavailable.')   ;   RETURN 
     863         CALL ctl_stop('zgr_zps: requested workspace unavailable')   ;   RETURN 
    864864      ENDIF 
    865865 
     
    11421142      !!---------------------------------------------------------------------- 
    11431143      USE wrk_nemo, ONLY:   wrk_in_use, wrk_not_released 
    1144       USE wrk_nemo, ONLY:   zenv => wrk_2d_1 , ztmp => wrk_2d_2 , zmsk  => wrk_2d_3 
    1145       USE wrk_nemo, ONLY:   zri  => wrk_2d_4 , zrj  => wrk_2d_5 , zhbat => wrk_2d_6 
     1144      USE wrk_nemo, ONLY:   zenv => wrk_2d_1 , ztmp => wrk_2d_2 , zmsk  => wrk_2d_3    ! 2D workspace 
     1145      USE wrk_nemo, ONLY:   zri  => wrk_2d_4 , zrj  => wrk_2d_5 , zhbat => wrk_2d_6    !  -      - 
    11461146      ! 
    11471147      INTEGER  ::   ji, jj, jk, jl           ! dummy loop argument 
     
    11531153 
    11541154      IF( wrk_in_use(2, 1,2,3,4,5,6) ) THEN 
    1155          CALL ctl_stop('zgr_sco: ERROR - requested workspace arrays unavailable')   ;   RETURN 
     1155         CALL ctl_stop('zgr_sco: requested workspace arrays unavailable')   ;   RETURN 
    11561156      ENDIF 
    11571157 
Note: See TracChangeset for help on using the changeset viewer.