Changeset 7355 for branches/2016/dev_CNRS_2016/NEMOGCM/CONFIG/ISOMIP

Timestamp:

2016-11-28T18:21:42+01:00 (8 years ago)

Author:

flavoni

Message:

merge branch dev_CNRS_2016 & dev_CNRS_AGRIF_LIM3

File:

• branches/2016/dev_CNRS_2016/NEMOGCM/CONFIG/ISOMIP/MY_SRC/usrdef_sbc.F90 (modified) (3 diffs)

branches/2016/dev_CNRS_2016/NEMOGCM/CONFIG/ISOMIP/MY_SRC/usrdef_sbc.F90

@@ -26 +26 @@
    PRIVATE
 
-   PUBLIC   usr_def_sbc   ! routine called by sbcmod.F90
+   PUBLIC   usrdef_sbc_oce   ! routine called by sbcmod.F90
+   PUBLIC   usrdef_sbc_ice_tau   ! routine called by sbcmod.F90
+   PUBLIC   usrdef_sbc_ice_flx   ! routine called by sbcmod.F90
 
    !! * Substitutions
@@ -37 +39 @@
 CONTAINS
 
-   SUBROUTINE usr_def_sbc( kt )
+   SUBROUTINE usrdef_sbc_oce( kt )
       !!---------------------------------------------------------------------
       !!                    ***  ROUTINE usr_def_sbc  ***
@@ -71 +73 @@
       ENDIF
       !
-   END SUBROUTINE usr_def_sbc
+   END SUBROUTINE usrdef_sbc_oce
+
+   SUBROUTINE usrdef_sbc_ice_tau( kt )
+      INTEGER, INTENT(in) ::   kt   ! ocean time step
+   END SUBROUTINE usrdef_sbc_ice_tau
+
+   SUBROUTINE usrdef_sbc_ice_flx( kt )
+      INTEGER, INTENT(in) ::   kt   ! ocean time step
+   END SUBROUTINE usrdef_sbc_ice_flx
 
    !!======================================================================