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 8203 for branches/UKMO/dev_r5518_GO6M_dev/NEMOGCM – NEMO

Ignore:
Timestamp:
2017-06-21T17:07:37+02:00 (6 years ago)
Author:
frrh
Message:

Code alterations to ensure compilation and running in stand-alone GO6
configurations.

Location:
branches/UKMO/dev_r5518_GO6M_dev/NEMOGCM/NEMO/OPA_SRC
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_GO6M_dev/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90

    r8200 r8203  
    20502050   SUBROUTINE mppstop 
    20512051    
     2052#if defined key_oasis3 
    20522053   USE mod_oasis      ! coupling routines 
     2054#endif 
    20532055 
    20542056      !!---------------------------------------------------------------------- 
  • branches/UKMO/dev_r5518_GO6M_dev/NEMOGCM/NEMO/OPA_SRC/SBC/cpl_oasis3.F90

    r8200 r8203  
    475475#if defined key_oa3mct_v3 
    476476         CALL oasis_get_freqs(id, mop, 1, itmp, info) 
     477#elseif key_oasis3  
     478         itmp(1) = namflddti( id ) 
    477479#else 
    478 !         CALL oasis_get_freqs(id,      1, itmp, info) 
    479          cpl_freq = namflddti( id ) 
    480 #endif 
     480         CALL oasis_get_freqs(id,      1, itmp, info) 
     481#endif 
     482         cpl_freq = itmp(1) 
    481483      ENDIF 
    482484      ! 
     
    527529   END SUBROUTINE oasis_get_localcomm 
    528530 
    529    SUBROUTINE oasis_def_partition(k1,k2,k3) 
     531   SUBROUTINE oasis_def_partition(k1,k2,k3,K4) 
    530532      INTEGER     , INTENT(  out) ::  k1,k3 
    531533      INTEGER     , INTENT(in   ) ::  k2(5) 
     534      INTEGER     , OPTIONAL, INTENT(in   ) ::  k4 
    532535      k1 = k2(1) ; k3 = k2(5) 
    533536      WRITE(numout,*) 'oasis_def_partition: Error you sould not be there...' 
Note: See TracChangeset for help on using the changeset viewer.