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 1559 for trunk/NEMO/OPA_SRC/lib_mpp.F90 – NEMO

Ignore:
Timestamp:
2009-07-29T16:03:14+02:00 (15 years ago)
Author:
ctlod
Message:

only cosmetic changes

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMO/OPA_SRC/lib_mpp.F90

    r1528 r1559  
    22912291CONTAINS 
    22922292 
    2293    FUNCTION mynode(localComm) RESULT (function_value) 
     2293   FUNCTION mynode( localComm ) RESULT (function_value) 
    22942294      INTEGER, OPTIONAL :: localComm 
    2295       function_value = 0 
     2295      IF( PRESENT( localComm ) .OR. .NOT.PRESENT( localComm ) )   function_value = 0 
    22962296   END FUNCTION mynode 
    22972297 
    … …  
    24462446 
    24472447   SUBROUTINE mpp_ini_znl 
    2448       INTEGER :: kcom 
    24492448      WRITE(*,*) 'mpp_ini_znl: You should not have seen this print! error?' 
    24502449   END SUBROUTINE mpp_ini_znl 
Note: See TracChangeset for help on using the changeset viewer.