Changeset 7077 for branches/2016/dev_v3_6_STABLE_r6506_AGRIF_LIM3/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_lim.F90

Timestamp:

2016-10-24T17:07:43+02:00 (7 years ago)

Author:

clem

Message:

enable analytic forcings with LIM3. It requires a change in namelist_ref.

File:

• branches/2016/dev_v3_6_STABLE_r6506_AGRIF_LIM3/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_lim.F90 (modified) (4 diffs)

branches/2016/dev_v3_6_STABLE_r6506_AGRIF_LIM3/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_lim.F90

@@ -30 +30 @@
    USE sbcblk_clio     ! Surface boundary condition: CLIO bulk
    USE sbccpl          ! Surface boundary condition: coupled interface
+   USE sbcana          ! Surface boundary condition: analytic formulation
    USE albedo          ! ocean & ice albedo
 
@@ -109 +110 @@
       !!---------------------------------------------------------------------
       INTEGER, INTENT(in) ::   kt      ! ocean time step
-      INTEGER, INTENT(in) ::   kblk    ! type of bulk (=3 CLIO, =4 CORE, =5 COUPLED)
+      INTEGER, INTENT(in) ::   kblk    ! type of bulk (=1 ANALYTIC, =3 CLIO, =4 CORE, =5 COUPLED)
       !!
       INTEGER  ::   jl                 ! dummy loop index
@@ -156 +157 @@
          !-----------------------------------------------------------------
          SELECT CASE( kblk )
+            CASE( jp_ana     )   ;    CALL ana_ice_tau                              ! analytic formulation            
             CASE( jp_clio    )   ;    CALL blk_ice_clio_tau                         ! CLIO bulk formulation            
             CASE( jp_core    )   ;    CALL blk_ice_core_tau                         ! CORE bulk formulation
@@ -228 +230 @@
          SELECT CASE( kblk )
 
+            CASE( jp_ana )                                        ! analytic formulation
+                                      CALL ana_ice_flx
+               
             CASE( jp_clio )                                       ! CLIO bulk formulation
                ! In CLIO the cloud fraction is read in the climatology and the all-sky albedo