New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 1465 – NEMO

Changeset 1465


Ignore:
Timestamp:
2009-06-11T09:29:51+02:00 (15 years ago)
Author:
smasson
Message:

supress ice_oce module, see ticket:448

Location:
trunk/NEMO
Files:
1 deleted
52 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMO/C1D_SRC/diawri_c1d.F90

    r1334 r1465  
    2323   USE zdfkpp          ! KPP vertical mixing 
    2424   USE sol_oce         ! solver variables 
    25    USE ice_oce         ! ice variables 
    2625   USE phycst          ! physical constants 
    2726   USE zdfmxl          ! mixed layer 

  • trunk/NEMO/C1D_SRC/step_c1d.F90

    r1334 r1465  
    5151   USE zdfmxl          ! Mixed-layer depth                (zdf_mxl routine) 
    5252 
    53    USE ice_oce         ! sea-ice variable 
    5453 
    5554   USE diawri          ! Standard run outputs             (dia_wri routine) 

  • trunk/NEMO/LIM_SRC_2/ice_2.F90

    r1463 r1465  
    3232   INTEGER , PUBLIC ::   nbiter = 1         !: number of sub-time steps for relaxation 
    3333   INTEGER , PUBLIC ::   nbitdr = 250       !: maximum number of iterations for relaxation 
     34   REAL(wp), PUBLIC ::   rdt_ice            !: ice time step 
    3435   REAL(wp), PUBLIC ::   epsd   = 1.0e-20   !: tolerance parameter for dynamic 
    3536   REAL(wp), PUBLIC ::   alpha  = 0.5       !: coefficient for semi-implicit coriolis 

  • trunk/NEMO/LIM_SRC_2/iceini_2.F90

    r1463 r1465  
    1717   USE dom_oce 
    1818   USE dom_ice_2 
    19    USE ice_oce         ! ice variables 
    2019   USE sbc_oce         ! surface boundary condition: ocean 
    2120   USE sbc_ice         ! surface boundary condition: ice 
    … …  
    5655                  
    5756      ! Louvain la Neuve Ice model 
    58       dtsd2   = nn_fsbc * rdttra(1) * 0.5 
    5957      rdt_ice = nn_fsbc * rdttra(1) 
    6058 

  • trunk/NEMO/LIM_SRC_2/limadv_2.F90

    r1156 r1465  
    1414   USE dom_oce 
    1515   USE dom_ice_2 
    16    USE ice_oce         ! ice variables 
    1716   USE in_out_manager  ! I/O manager 
     17   USE ice_2 
    1818   USE lbclnk 
    1919   USE prtctl          ! Print control 

  • trunk/NEMO/LIM_SRC_2/limdia_2.F90

    r1156 r1465  
    1818   USE phycst          !  
    1919   USE par_ice_2       ! ice parameters 
    20    USE ice_oce         ! ice variables 
    2120   USE sbc_oce         ! surface boundary condition variables 
    2221   USE daymod          ! 

  • trunk/NEMO/LIM_SRC_2/limdmp_2.F90

    r1156 r1465  
    1717   USE phycst          ! physical constants 
    1818   USE ice_2 
    19    USE ice_oce 
    2019   USE tradmp 
    2120   USE dom_oce 

  • trunk/NEMO/LIM_SRC_2/limdyn_2.F90

    r1347 r1465  
    2020   USE phycst         ! 
    2121   USE ice_2          ! 
    22    USE ice_oce        ! 
    2322   USE dom_ice_2      ! 
    2423   USE limistate_2    ! 

  • trunk/NEMO/LIM_SRC_2/limhdf_2.F90

    r1156 r1465  
    1212   !! * Modules used 
    1313   USE dom_oce 
    14    USE ice_oce         ! ice variables 
    1514   USE in_out_manager 
    1615   USE ice_2 

  • trunk/NEMO/LIM_SRC_2/limistate_2.F90

    r1228 r1465  
    2020   USE phycst 
    2121   USE par_ice_2       ! ice parameters 
    22    USE ice_oce         ! ice variables 
    2322   USE dom_ice_2 
    2423   USE eosbn2          ! equation of state 

  • trunk/NEMO/LIM_SRC_2/limrhg_2.F90

    r1347 r1465  
    1818   !!---------------------------------------------------------------------- 
    1919   USE par_oce        ! ocean parameter 
    20    USE ice_oce        ! ice variables 
    2120   USE sbc_ice        ! surface boundary condition: ice variables 
    2221   USE dom_ice_2      ! domaine: ice variables 

  • trunk/NEMO/LIM_SRC_2/limsbc_2.F90

    r1463 r1465  
    2020   USE sbc_oce          ! surface boundary condition 
    2121   USE phycst           ! physical constants 
    22    USE ice_oce          ! sea-ice variable 
    2322   USE ice_2            ! LIM sea-ice variables 
    2423   USE dynspg_oce       ! choice of the surface pressure gradient scheme  

  • trunk/NEMO/LIM_SRC_2/limthd_2.F90

    r1463 r1465  
    2121   USE in_out_manager  ! I/O manager 
    2222   USE ice_2           ! LIM sea-ice variables 
    23    USE ice_oce         ! sea-ice/ocean variables 
    2423   USE sbc_oce         !  
    2524   USE sbc_ice         !  

  • trunk/NEMO/LIM_SRC_2/limthd_lac_2.F90

    r1228 r1465  
    1111   USE par_oce          ! ocean parameters 
    1212   USE phycst 
    13    USE ice_oce          ! ice variables 
    1413   USE thd_ice_2 
    1514   USE ice_2 

  • trunk/NEMO/LIM_SRC_2/limthd_zdf_2.F90

    r1228 r1465  
    1717   USE par_oce          ! ocean parameters 
    1818   USE phycst           ! ??? 
    19    USE ice_oce          ! ice variables 
    2019   USE thd_ice_2 
    2120   USE ice_2 

  • trunk/NEMO/LIM_SRC_2/limtrp_2.F90

    r1228 r1465  
    1616   USE daymod 
    1717   USE in_out_manager  ! I/O manager 
    18    USE ice_oce         ! ice variables 
    1918   USE dom_ice_2 
    2019   USE ice_2 

  • trunk/NEMO/LIM_SRC_2/limwri_2.F90

    r1463 r1465  
    1818   USE dom_oce 
    1919   USE daymod 
    20    USE ice_oce         ! ice variables 
    2120   USE sbc_oce 
    2221   USE sbc_ice 

  • trunk/NEMO/LIM_SRC_3/ice.F90

    r1229 r1465  
    189189   !! * Share Module variables 
    190190   !!-------------------------------------------------------------------------- 
     191   REAL(wp), PUBLIC ::   rdt_ice      !: ice time step 
     192 
    191193   INTEGER , PUBLIC ::   &     !!: ** ice-dynamic namelist (namicedyn) ** 
    192194      nbiter = 1      ,  &     !: number of sub-time steps for relaxation 
    … …  
    298300      fdvolif,   &  !: Total variation of ice volume (only used for outputs) 
    299301      rdvonif,   &  !: Lateral Variation of ice volume (only used for outputs) 
    300       sist   ,   &  !: Average Sea-Ice Surface Temperature (Kelvin ??? degree ??? I don't know) 
     302      sist   ,   &  !: Average Sea-Ice Surface Temperature (Kelvin) 
     303      icethi ,   &  !: total ice thickness (for all categories) (only used for outputs) 
    301304      t_bo   ,   &  !: Sea-Ice bottom temperature (Kelvin)       
    302305      hicifp ,   &  !: Ice production/melting 

  • trunk/NEMO/LIM_SRC_3/iceini.F90

    r1229 r1465  
    1212   USE dom_oce 
    1313   USE in_out_manager 
    14    USE ice_oce         ! ice variables 
    1514   USE sbc_oce         ! Surface boundary condition: ocean fields 
    1615   USE sbc_ice         ! Surface boundary condition: ice fields 
    … …  
    6564      ! Louvain la Neuve Ice model 
    6665      IF( nacc == 1 ) THEN 
    67          dtsd2   = nn_fsbc * rdtmin * 0.5 
    6866         rdt_ice = nn_fsbc * rdtmin 
    6967      ELSE 
    70          dtsd2   = nn_fsbc * rdt * 0.5 
    7168         rdt_ice = nn_fsbc * rdt 
    7269      ENDIF 

  • trunk/NEMO/LIM_SRC_3/limadv.F90

    r1156 r1465  
    1414   USE dom_oce 
    1515   USE dom_ice 
    16    USE ice_oce         ! ice variables 
     16   USE ice 
    1717   USE in_out_manager  ! I/O manager 
    1818   USE lbclnk 

  • trunk/NEMO/LIM_SRC_3/limcons.F90

    r1156 r1465  
    2424   USE dom_ice 
    2525   USE ice 
    26    USE ice_oce         ! ice variables 
    2726   USE in_out_manager  ! I/O manager 
    2827 

  • trunk/NEMO/LIM_SRC_3/limdia.F90

    r1156 r1465  
    1919   USE in_out_manager 
    2020   USE par_ice         ! ice parameters 
    21    USE ice_oce         ! ice variables 
    2221   USE daymod 
    2322   USE dom_ice 

  • trunk/NEMO/LIM_SRC_3/limdyn.F90

    r1156 r1465  
    2020   USE sbc_oce         ! Surface boundary condition: ocean fields 
    2121   USE sbc_ice         ! Surface boundary condition: ice fields 
    22    USE ice_oce 
    2322   USE iceini 
    2423   USE limistate 

  • trunk/NEMO/LIM_SRC_3/limhdf.F90

    r1156 r1465  
    1212   !! * Modules used 
    1313   USE dom_oce 
    14    USE ice_oce         ! ice variables 
    1514   USE in_out_manager 
    1615   USE ice 

  • trunk/NEMO/LIM_SRC_3/limistate.F90

    r1156 r1465  
    1717   USE sbc_oce         ! Surface boundary condition: ocean fields 
    1818   USE par_ice         ! ice parameters 
    19    USE ice_oce         ! ice variables 
    2019   USE eosbn2          ! equation of state 
    2120   USE in_out_manager 

  • trunk/NEMO/LIM_SRC_3/limitd_me.F90

    r1156 r1465  
    1919   USE lbclnk 
    2020   USE phycst           ! physical constants (ocean directory)  
    21    USE ice_oce          ! ice variables 
    2221   USE sbc_oce          ! Surface boundary condition: ocean fields 
    2322   USE thd_ice 

  • trunk/NEMO/LIM_SRC_3/limitd_th.F90

    r1156 r1465  
    1616   USE dom_oce 
    1717   USE phycst           ! physical constants (ocean directory)  
    18    USE ice_oce          ! ice variables 
    1918   USE thd_ice 
    2019   USE limistate 

  • trunk/NEMO/LIM_SRC_3/limrhg.F90

    r1244 r1465  
    1717   USE phycst 
    1818   USE par_oce 
    19    USE ice_oce         ! ice variables 
    2019   USE dom_oce 
    2120   USE dom_ice 

  • trunk/NEMO/LIM_SRC_3/limrst.F90

    r1229 r1465  
    1717   USE in_out_manager 
    1818   USE dom_oce 
    19    USE ice_oce         ! ice variables 
    2019   USE sbc_oce         ! Surface boundary condition: ocean fields 
    2120   USE sbc_ice         ! Surface boundary condition: ice fields 

  • trunk/NEMO/LIM_SRC_3/limsbc.F90

    r1322 r1465  
    2121   USE sbc_oce          ! Surface boundary condition: ocean fields 
    2222   USE phycst           ! physical constants 
    23    USE ice_oce          ! sea-ice variable 
    2423   USE ice              ! LIM sea-ice variables 
    2524   USE iceini           ! ??? 

  • trunk/NEMO/LIM_SRC_3/limthd.F90

    r1171 r1465  
    1717   USE in_out_manager  ! I/O manager 
    1818   USE ice             ! LIM sea-ice variables 
    19    USE ice_oce         ! sea-ice/ocean variables 
    2019   USE sbc_oce         ! Surface boundary condition: ocean fields 
    2120   USE sbc_ice         ! Surface boundary condition: ice fields 

  • trunk/NEMO/LIM_SRC_3/limthd_dh.F90

    r1171 r1465  
    1515   USE par_oce          ! ocean parameters 
    1616   USE phycst           ! physical constants (OCE directory)  
    17    USE ice_oce          ! ice variables 
    1817   USE sbc_oce          ! Surface boundary condition: ocean fields 
    1918   USE thd_ice 

  • trunk/NEMO/LIM_SRC_3/limthd_dif.F90

    r1156 r1465  
    1414   USE par_oce          ! ocean parameters 
    1515   USE phycst           ! physical constants (ocean directory)  
    16    USE ice_oce          ! ice variables 
    1716   USE thd_ice 
    1817   USE iceini 

  • trunk/NEMO/LIM_SRC_3/limthd_ent.F90

    r1156 r1465  
    1818   USE in_out_manager 
    1919   USE phycst 
    20    USE ice_oce         ! ice variables 
    2120   USE thd_ice 
    2221   USE iceini 

  • trunk/NEMO/LIM_SRC_3/limthd_lac.F90

    r1156 r1465  
    1515   USE in_out_manager 
    1616   USE phycst 
    17    USE ice_oce         ! ice variables 
    1817   USE sbc_oce         ! Surface boundary condition: ocean fields 
    1918   USE sbc_ice         ! Surface boundary condition: ice fields 

  • trunk/NEMO/LIM_SRC_3/limthd_sal.F90

    r1156 r1465  
    1414   USE par_oce          ! ocean parameters 
    1515   USE phycst           ! physical constants (ocean directory) 
    16    USE ice_oce          ! ice variables 
    1716   USE sbc_oce          ! Surface boundary condition: ocean fields 
    1817   USE thd_ice 

  • trunk/NEMO/LIM_SRC_3/limtrp.F90

    r1296 r1465  
    1616   USE daymod 
    1717   USE in_out_manager  ! I/O manager 
    18    USE ice_oce         ! ice variables 
    1918   USE sbc_oce         ! Surface boundary condition: ocean fields 
    2019   USE dom_ice 

  • trunk/NEMO/LIM_SRC_3/limupdate.F90

    r1156 r1465  
    2424   USE oce             ! dynamics and tracers variables 
    2525   USE in_out_manager 
    26    USE ice_oce         ! ice variables 
    2726   USE sbc_oce         ! Surface boundary condition: ocean fields 
    2827   USE sbc_ice         ! Surface boundary condition: ice fields 

  • trunk/NEMO/LIM_SRC_3/limvar.F90

    r1156 r1465  
    3838   USE par_oce          ! ocean parameters 
    3939   USE phycst           ! physical constants (ocean directory)  
    40    USE ice_oce          ! ice variables 
    4140   USE sbc_oce          ! Surface boundary condition: ocean fields 
    4241   USE thd_ice 

  • trunk/NEMO/LIM_SRC_3/limwri.F90

    r1339 r1465  
    2323   USE daymod 
    2424   USE in_out_manager 
    25    USE ice_oce         ! ice variables 
    2625   USE sbc_oce         ! Surface boundary condition: ocean fields 
    2726   USE sbc_ice         ! Surface boundary condition: ice fields 

  • trunk/NEMO/LIM_SRC_3/thd_ice.F90

    r1156 r1465  
    8585      dqla_ice_1d ,     &  !:    "                  "      dqla_ice 
    8686                                ! to reintegrate longwave flux inside the ice thermodynamics 
    87       qtur_ice_1d ,     &  !:    "                  "      qtur_ice 
    88       dqtu_ice_1d ,     &  !:    "                  "      dqtu_ice 
    89       catm_ice_1d ,     &  !:    "                  "      catm_ice 
     87!!sm: not used      qtur_ice_1d ,     &  !:    "                  "      qtur_ice 
     88!!sm: not used      dqtu_ice_1d ,     &  !:    "                  "      dqtu_ice 
     89!!sm: not used      catm_ice_1d ,     &  !:    "                  "      catm_ice 
    9090      tatm_ice_1d ,     &  !:    "                  "      tatm_ice 
    91       evsq_ice_1d ,     &  !:    "                  "      evsq_ice 
    92       sbud_ice_1d ,     &  !:    "                  "      sbud_ice 
     91!!sm: not used      evsq_ice_1d ,     &  !:    "                  "      evsq_ice 
     92!!sm: not used      sbud_ice_1d ,     &  !:    "                  "      sbud_ice 
    9393      fsup        ,     &  !:    Energy flux sent from bottom to lateral ablation if |dhb|> 0.15 m 
    9494      focea       ,     &  !:    Remaining energy in case of total ablation 
    … …  
    102102      dsm_i_gd_1d ,     &  !:    Ice salinity variations due to gravity drainage 
    103103      dsm_i_se_1d ,     &  !:    Ice salinity variations due to basal salt entrapment 
    104       dsm_i_la_1d ,     &  !:    Ice salinity variations due to lateral accretion     
     104!!sm: not used      dsm_i_la_1d ,     &  !:    Ice salinity variations due to lateral accretion     
    105105      dsm_i_si_1d ,     &  !:    Ice salinity variations due to lateral accretion     
    106106      hicol_b              !:    Ice collection thickness accumulated in fleads 

  • trunk/NEMO/NST_SRC/agrif_user.F90

    r1300 r1465  
    7272      USE sol_oce 
    7373      USE in_out_manager 
    74 #if defined key_lim3 || defined key_lim2 
    75       USE ice_oce 
    76 #endif 
    7774      USE agrif_opa_update 
    7875      USE agrif_opa_interp 

  • trunk/NEMO/OPA_SRC/DIA/diawri.F90

    r1463 r1465  
    1313   USE ldfdyn_oce      ! ocean dynamics: lateral physics 
    1414   USE sol_oce         ! solver variables 
    15    USE ice_oce         ! ice variables 
    1615   USE sbc_oce         ! Surface boundary condition: ocean fields 
    1716   USE sbc_ice         ! Surface boundary condition: ice fields 

  • trunk/NEMO/OPA_SRC/DOM/domain.F90

    r1438 r1465  
    2121   USE oce             !  
    2222   USE dom_oce         ! ocean space and time domain 
    23    USE ice_oce         ! ice variables 
    2423   USE sbc_oce         ! surface boundary condition: ocean 
    2524   USE phycst          ! physical constants 

  • trunk/NEMO/OPA_SRC/SBC/sbc_ice.F90

    r1463 r1465  
    1111   !!---------------------------------------------------------------------- 
    1212   USE par_oce          ! ocean parameters 
    13 #if defined key_lim3 
     13# if defined key_lim3 
    1414   USE par_ice          ! ice parameters 
    15 #endif 
    16 #if defined key_lim2 
     15# endif 
     16# if defined key_lim2 
    1717   USE par_ice_2        ! ice parameters 
    18 #endif 
     18# endif 
    1919 
    2020   IMPLICIT NONE 
    2121   PRIVATE 
     22 
     23# if defined  key_lim2 
     24   LOGICAL         , PUBLIC, PARAMETER ::   lk_lim2        = .TRUE.    !: LIM-2 ice model 
     25   LOGICAL         , PUBLIC, PARAMETER ::   lk_lim3        = .FALSE.   !: no LIM-3 
     26   CHARACTER(len=1), PUBLIC            ::   cice_grid      = 'B'       !: 'B'-grid ice-velocity 
     27# endif 
     28# if defined  key_lim3 
     29   LOGICAL         , PUBLIC, PARAMETER ::   lk_lim2        = .FALSE.   !: no LIM-2 
     30   LOGICAL         , PUBLIC, PARAMETER ::   lk_lim3        = .TRUE.    !: LIM-3 ice model 
     31   CHARACTER(len=1), PUBLIC            ::   cice_grid      = 'C'       !: 'C'-grid ice-velocity 
     32# endif 
    2233 
    2334   REAL(wp), PUBLIC, DIMENSION(jpi,jpj,jpl) ::   qns_ice   !: non solar heat flux over ice  [W/m2] 
    … …  
    3546   REAL(wp), PUBLIC, DIMENSION(jpi,jpj) ::   emp_ice     !: solid freshwater budget over ice: sublivation - snow 
    3647 
     48# if defined key_lim3 
     49   REAL(wp), PUBLIC, DIMENSION(jpi,jpj) ::   tatm_ice    !: air temperature 
     50# endif 
     51 
    3752#else 
     53 
    3854   !!---------------------------------------------------------------------- 
    39    !!   Empty module                                   NO LIM sea-ice model 
     55   !!   Default option                      NO LIM 2.0 or 3.0 sea-ice model 
    4056   !!---------------------------------------------------------------------- 
     57   LOGICAL         , PUBLIC, PARAMETER ::   lk_lim2        = .FALSE.  !: no LIM-2 ice model 
     58   LOGICAL         , PUBLIC, PARAMETER ::   lk_lim3        = .FALSE.  !: no LIM-3 ice model 
     59   CHARACTER(len=1), PUBLIC            ::   cice_grid      = '-'      !: no grid ice-velocity 
     60 
    4161#endif 
    4262 

  • trunk/NEMO/OPA_SRC/SBC/sbcblk_clio.F90

    r1347 r1465  
    3131#if defined key_lim3 
    3232   USE ice 
    33    USE ice_oce         ! For ice surface temperature 
     33   USE sbc_ice         ! Surface boundary condition: ice fields 
    3434#elif defined key_lim2 
    3535   USE ice_2 

  • trunk/NEMO/OPA_SRC/SBC/sbcblk_core.F90

    r1414 r1465  
    3232   USE prtctl          ! Print control 
    3333#if defined key_lim3 
    34    USE ice_oce         ! For ice surface temperature 
     34   USE sbc_ice         ! Surface boundary condition: ice fields 
    3535#endif 
    3636 

  • trunk/NEMO/OPA_SRC/SBC/sbccpl.F90

    r1463 r1465  
    2323   USE sbc_oce         ! Surface boundary condition: ocean fields 
    2424   USE sbc_ice         ! Surface boundary condition: ice fields 
    25    USE ice_oce         ! Shared variables between ice and ocean 
    2625#if defined key_lim3 
    2726   USE par_ice         ! ice parameters 

  • trunk/NEMO/OPA_SRC/SBC/sbcice_lim.F90

    r1270 r1465  
    2525   USE ice 
    2626   USE iceini 
    27    USE ice_oce         ! ice variables 
    2827   USE dom_ice 
    2928 

  • trunk/NEMO/OPA_SRC/SBC/sbcice_lim_2.F90

    r1463 r1465  
    2323   USE par_ice_2 
    2424   USE iceini_2 
    25    USE ice_oce         ! ice variables 
    2625   USE dom_ice_2 
    2726 

  • trunk/NEMO/OPA_SRC/SBC/sbcmod.F90

    r1242 r1465  
    1717   USE phycst          ! physical constants 
    1818 
    19    USE ice_oce         ! sea-ice model : LIM 
    2019   USE sbc_oce         ! Surface boundary condition: ocean fields 
     20   USE sbc_ice         ! Surface boundary condition: ice fields 
    2121   USE sbcssm          ! surface boundary condition: sea-surface mean variables 
    2222   USE sbcana          ! surface boundary condition: analytical formulation 

  • trunk/NEMO/OPA_SRC/step.F90

    r1457 r1465  
    9696 
    9797   USE zpshde          ! partial step: hor. derivative     (zps_hde routine) 
    98    USE ice_oce         ! sea-ice variable 
    9998 
    10099   USE diawri          ! Standard run outputs             (dia_wri routine) 
Note: See TracChangeset for help on using the changeset viewer.