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 4314 – NEMO

Changeset 4314


Ignore:
Timestamp:
2013-11-26T11:36:22+01:00 (10 years ago)
Author:
cetlod
Message:

v3.6_alpha : fix to compile without FPP key key_mpp_mpi, see ticket #1188

Location:
branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/OPA_SRC
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/OPA_SRC/CRS/crsdom.F90

    r4247 r4314  
    3737   USE par_kind 
    3838   USE crslbclnk 
     39   USE lib_mpp 
    3940    
    4041 

  • branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90

    r4232 r4314  
    35113511   END FUNCTION lib_mpp_alloc 
    35123512 
    3513    FUNCTION mynode( ldtxt, kumnam_ref, knumnam_cfg, kstop, localComm ) RESULT (function_value) 
     3513   FUNCTION mynode( ldtxt, kumnam_ref, knumnam_cfg,  kumond , kstop, localComm ) RESULT (function_value) 
    35143514      INTEGER, OPTIONAL            , INTENT(in   ) ::   localComm 
    35153515      CHARACTER(len=*),DIMENSION(:) ::   ldtxt 
    3516       INTEGER ::   kumnam_ref, knumnam_cfg , kstop 
     3516      INTEGER ::   kumnam_ref, knumnam_cfg , kumond , kstop 
    35173517      IF( PRESENT( localComm ) .OR. .NOT.PRESENT( localComm ) )   function_value = 0 
    35183518      IF( .FALSE. )   ldtxt(:) = 'never done' 
Note: See TracChangeset for help on using the changeset viewer.