Changeset 532 for trunk/NEMO/OPA_SRC/SBC

Timestamp:

2006-10-20T08:36:42+02:00 (18 years ago)

Author:

opalod

Message:

nemo_v1_update_76 : CT : add OASIS[3-4] interfaces to build coupled configurations

Location:

trunk/NEMO/OPA_SRC/SBC

Files:

• cpl_oasis3.F90 (added)
• cpl_oasis4.F90 (added)
• flx_coupled_ice.h90 (deleted)
• flx_coupled_noice.h90 (deleted)
• flx_oasis_ice.h90 (added)
• flxmod.F90 (modified) (2 diffs)
• oasis4_date.F90 (added)
• tau_coupled.h90 (deleted)
• tau_coupled_ice.h90 (deleted)
• tau_oasis_ice.h90 (added)
• taumod.F90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/SBC/flxmod.F90

@@ -14 +14 @@
    USE ocfzpt          ! ocean freezing point
 
+#if defined key_oasis3 || defined key_oasis4
+#if defined key_oasis3
+   USE cpl_oasis3      ! OASIS3 coupling (to ECHAM5)
+#else if defined key_oasis4
+   USE cpl_oasis4      ! OASIS4 coupling (to ECHAM5)
+#endif
+   USE flx_oce, only : dqns_ice , & ! : derivative of non solar heat flux on sea ice
+                       qsr_oce  , & ! : solar flux over ocean
+                       qnsr_oce , & ! : total non solar heat flux (longwave downward radiation) over ocean
+                       qsr_ice  , & ! : solar flux over ice
+                       qnsr_ice , & ! : total non solar heat flux (Longwave downward radiation) over ice
+                       tn_ice   , & ! : ice surface temperature
+                       alb_ice  , & ! : albedo of ice
+                       sprecip  , & ! : solid (snow) precipitation over water (!) what about ice?
+                       tprecip  , & ! : total precipitation ( or liquid precip minus evaporation in coupled mode)
+                       calving  , & ! : calving
+                       rrunoff  , & ! : monthly runoff (kg/m2/s)
+                       fr1_i0   , & ! : 1st part of the fraction of sol.rad. which penetrate inside the ice cover
+                       fr2_i0       ! : 2nd part of the fraction of sol.rad. which penetrate inside the ice cover
+
+   USE ice, only    : hicif ,     & ! : ice thickness
+                      frld  ,     & ! : leads fraction = 1-a/totalarea
+                      hsnif  ,    & ! : snow thickness
+                      u_ice , v_ice ! : ice velocity
+
+   USE ice_oce, only : sst_io      ! : sea surface temperature
+
+#if defined key_cpl_ocevel
+   USE geo2ocean, only : repere, repcmo
+#endif
+#endif
    IMPLICIT NONE
    PRIVATE
 
+#if defined key_oasis3 || defined key_oasis4
+   REAL(wp), DIMENSION(jpi,jpj) :: catm
+#endif
    !! * Routine accessibility
    PUBLIC flx       ! routine called by step.F90
@@ -65 +99 @@
 #  include "flx_forced_daily.h90"
 
-#elif defined key_coupled
-# if defined key_ice_lim
+#elif defined key_oasis3  ||  defined key_oasis4
    !!----------------------------------------------------------------------
-   !!   'key_coupled'  and                          Coupled Ocan/Atmosphere
+   !!   'key_oasis3'  or 'key_oasis4' and           Coupled Ocan/Atmosphere
    !!   'key_ice_lim'                               with  LIM sea-ice model
    !!----------------------------------------------------------------------
-#  include "flx_coupled_ice.h90"
-
-# else
-   !!----------------------------------------------------------------------
-   !!   'key_flx_coupled'  and                      Coupled Ocan/Atmosphere
-   !!   Default option                              without   sea-ice model
-   !!----------------------------------------------------------------------
-#  include "flx_coupled_noice.h90"
-
-# endif
+#  include "flx_oasis_ice.h90"
 #else
    !!----------------------------------------------------------------------

trunk/NEMO/OPA_SRC/SBC/taumod.F90

@@ -15 +15 @@
    USE lbclnk          ! 
 
+#if defined key_oasis3 || defined key_oasis4
+   USE geo2ocean, only : repcmo
+   USE ice, only       : frld       ! : leads fraction = 1-a/totalarea
+#if defined key_oasis3
+   USE cpl_oasis3      ! OASIS3 coupling (to ECHAM5)
+#else if defined key_oasis4
+   USE cpl_oasis4      ! OASIS4 coupling (to ECHAM5)
+#endif
+#endif
    IMPLICIT NONE
    PRIVATE
@@ -48 +57 @@
 #   include "tau_forced_daily.h90"
 
-#elif defined key_coupled
+#elif defined key_oasis3  ||  defined key_oasis4
    ! Coupled case : stress at the coupling frequency
-# if defined key_ice_lim
-   !!----------------------------------------------------------------------
-   !!   'key_coupled'                              Coupled Ocean/Atmosphere
+   !!----------------------------------------------------------------------
+   !!   'key_oasis3' or 'key_oasis4' and           Coupled Ocean/Atmosphere
    !!   'key_ice_lim'                                   LIM sea-ice
    !!----------------------------------------------------------------------
    ! New way: 3D referential link to the earth (avoid north pole pb)
    ! (3 component stress defined at U- and V-points)
-#  include "tau_coupled_ice.h90"
-# else
-   !!----------------------------------------------------------------------
-   !!   'key_coupled'                              Coupled Ocean/Atmosphere
-   !!   Default case                                  NO sea-ice
-   !!----------------------------------------------------------------------
-   ! old fashion: geographical referential
-   ! (zonal and meridional stress defined at U- and V-points)
-#  include "tau_coupled.h90"
-# endif
+#  include "tau_oasis_ice.h90"
 #else
    !!----------------------------------------------------------------------