Ignore:
Timestamp:
02/10/14 18:18:53 (8 years ago)
Author:
aclsce
Message:

Modified NEMO/SOURCES specific to IPSLCM6 configuration ( compilation files and NEMO model sources)..
Removed some routines which are not specific anymore to IPSL configuration.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • CONFIG/UNIFORM/v6/IPSLCM6/SOURCES/NEMO/sbccpl.F90

    r2189 r2194  
    6363   PUBLIC   sbc_cpl_ice_tau    ! routine called by sbc_ice_lim(_2).F90 
    6464   PUBLIC   sbc_cpl_ice_flx    ! routine called by sbc_ice_lim(_2).F90 
     65#if defined key_oasis_mct 
     66   PUBLIC   sbc_cpl_init  
     67#endif 
    6568 
    6669   INTEGER, PARAMETER ::   jpr_otx1   =  1            ! 3 atmosphere-ocean stress components on grid 1 
     
    680683      CALL wrk_alloc( jpi,jpj, ztx, zty ) 
    681684 
    682       IF( kt == nit000 )   CALL sbc_cpl_init( k_ice )          ! initialisation 
    683  
     685#if ! defined key_oasis_mct 
     686       IF( kt == nit000 )   CALL sbc_cpl_init( k_ice )          ! initialisation 
     687#endif 
    684688      !                                                 ! Receive all the atmos. fields (including ice information) 
    685689      isec = ( kt - nit000 ) * NINT( rdttra(1) )             ! date of exchanges 
Note: See TracChangeset for help on using the changeset viewer.