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 3971 for trunk/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90 – NEMO

Ignore:
Timestamp:
2013-07-12T11:31:43+02:00 (11 years ago)
Author:
cbricaud
Message:

Correction for 1D configuration ; see ticket #1096

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90

    r3940 r3971  
    9999      clname = "nemo" 
    100100      IF( TRIM(Agrif_CFixed()) /= '0' )   clname = TRIM(Agrif_CFixed())//"_"//TRIM(clname) 
     101#if defined key_mpp_mpi 
    101102      CALL xios_context_initialize(TRIM(clname), mpi_comm_opa) 
     103#else 
     104      CALL xios_context_initialize(TRIM(clname), 0) 
     105#endif 
    102106      CALL iom_swap 
    103107 
Note: See TracChangeset for help on using the changeset viewer.