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/LBC/lib_mpp.F90 – NEMO

Ignore:
Timestamp:
2011-03-15T16:27:46+01:00 (12 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/LBC/lib_mpp.F90

    r2668 r2690  
    17591759      !!---------------------------------------------------------------------- 
    17601760 
    1761       IF(wrk_in_use(2, 1) ) THEN 
     1761      IF( wrk_in_use(2, 1) ) THEN 
    17621762         WRITE(kumout, cform_err) 
    17631763         WRITE(kumout,*) 'mppobc : requested workspace array unavailable' 
    17641764         CALL mppstop 
    1765       END IF 
     1765      ENDIF 
    17661766 
    17671767      ! boundary condition initialization 
     
    19141914      END DO 
    19151915      ! 
    1916       IF(wrk_not_released(2, 1) ) THEN 
     1916      IF( wrk_not_released(2, 1) ) THEN 
    19171917         WRITE(kumout, cform_err) 
    19181918         WRITE(kumout,*) 'mppobc : failed to release workspace array' 
Note: See TracChangeset for help on using the changeset viewer.