Changeset 67 for trunk


Ignore:
Timestamp:
01/04/13 21:22:11 (11 years ago)
Author:
smasson
Message:

minor bugfixes related to previous changeset

Location:
trunk/NEMOGCM/NEMO/OPA_SRC
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90

    r65 r67  
    201201      IF( nn_ice == 4 )   CALL cice_sbc_init (nsbc) 
    202202 
    203 !EM modif XIOS/OASIS-MCT compliance 
     203#if defined key_oasis_mct 
    204204      IF( nsbc == 5 )   CALL sbc_cpl_init (nn_ice) 
     205#endif 
    205206      ! 
    206207   END SUBROUTINE sbc_init 

  • trunk/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90

    r66 r67  
    182182      ! 
    183183      CALL nemo_closefile 
    184 # if defined key_iomput 
    185       IF( Agrif_Root() ) THEN 
    186          CALL xios_finalize                ! end mpp communications 
    187       ENDIF 
     184#if defined key_iomput 
     185      CALL xios_finalize                ! end mpp communications 
     186# if defined key_oasis3 || defined key_oasis4 
     187      CALL cpl_prism_finalize           ! end coupling and mpp communications with OASIS 
     188# endif 
     189#else 
     190# if defined key_oasis3 || defined key_oasis4 
     191      CALL cpl_prism_finalize           ! end coupling and mpp communications with OASIS 
    188192# else 
    189193      IF( lk_mpp )   CALL mppstop       ! end mpp communications 
    190194# endif 
    191 #if defined key_oasis3 || defined key_oasis4 
    192       IF( Agrif_Root() ) THEN 
    193          CALL cpl_prism_finalize           ! end coupling and mpp communications with OASIS 
    194       ENDIF 
    195195#endif 
    196196      ! 
Note: See TracChangeset for help on using the changeset viewer.