Changeset 2194 for CONFIG/UNIFORM/v6/IPSLCM6/SOURCES/NEMO/sbccpl.F90

Timestamp:

02/10/14 18:18:53 (10 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:

• CONFIG/UNIFORM/v6/IPSLCM6/SOURCES/NEMO/sbccpl.F90 (modified) (2 diffs)

CONFIG/UNIFORM/v6/IPSLCM6/SOURCES/NEMO/sbccpl.F90

@@ -63 +63 @@
    PUBLIC   sbc_cpl_ice_tau    ! routine called by sbc_ice_lim(_2).F90
    PUBLIC   sbc_cpl_ice_flx    ! routine called by sbc_ice_lim(_2).F90
+#if defined key_oasis_mct
+   PUBLIC   sbc_cpl_init 
+#endif
 
    INTEGER, PARAMETER ::   jpr_otx1   =  1            ! 3 atmosphere-ocean stress components on grid 1
@@ -680 +683 @@
       CALL wrk_alloc( jpi,jpj, ztx, zty )
 
-      IF( kt == nit000 )   CALL sbc_cpl_init( k_ice )          ! initialisation
-
+#if ! defined key_oasis_mct
+       IF( kt == nit000 )   CALL sbc_cpl_init( k_ice )          ! initialisation
+#endif
       !                                                 ! Receive all the atmos. fields (including ice information)
       isec = ( kt - nit000 ) * NINT( rdttra(1) )             ! date of exchanges