Changeset 5055


Ignore:
Timestamp:
2015-02-04T11:10:53+01:00 (6 years ago)
Author:
clem
Message:

LIM3: removing par_ice and put jpl, nlay_i and nlay_s as namelist parameters

Location:
branches/2015/dev_r5044_CNRS_LIM3CLEAN/NEMOGCM/NEMO
Files:
1 deleted
30 edited

Legend:

Unmodified
Added
Removed
  • branches/2015/dev_r5044_CNRS_LIM3CLEAN/NEMOGCM/NEMO/LIM_SRC_3/dom_ice.F90

    r4161 r5055  
    77   !!            4.0  ! 2011-02  (G. Madec) dynamical allocation 
    88   !!---------------------------------------------------------------------- 
    9    USE par_ice        ! LIM-3 parameter 
    109   USE in_out_manager ! I/O manager 
    1110   USE lib_mpp        ! MPP library 
  • branches/2015/dev_r5044_CNRS_LIM3CLEAN/NEMOGCM/NEMO/LIM_SRC_3/ice.F90

    r5053 r5055  
    1111   !!   'key_lim3'                                      LIM-3 sea-ice model 
    1212   !!---------------------------------------------------------------------- 
    13    USE par_ice        ! LIM sea-ice parameters 
    1413   USE in_out_manager ! I/O manager 
    1514   USE lib_mpp        ! MPP library 
     
    366365   !!-------------------------------------------------------------------------- 
    367366   !                                                  !!: ** Namelist namicerun read in sbc_lim_init ** 
    368 !clem   INTEGER               , PUBLIC ::   jpl             !: number of ice  categories  
    369 !clem   INTEGER               , PUBLIC ::   nlay_i          !: number of ice  layers  
    370 !clem   INTEGER               , PUBLIC ::   nlay_s          !: number of snow layers  
     367   INTEGER               , PUBLIC ::   jpl             !: number of ice  categories  
     368   INTEGER               , PUBLIC ::   nlay_i          !: number of ice  layers  
     369   INTEGER               , PUBLIC ::   nlay_s          !: number of snow layers  
    371370   CHARACTER(len=32)     , PUBLIC ::   cn_icerst_in    !: suffix of ice restart name (input) 
    372371   CHARACTER(len=32)     , PUBLIC ::   cn_icerst_out   !: suffix of ice restart name (output) 
  • branches/2015/dev_r5044_CNRS_LIM3CLEAN/NEMOGCM/NEMO/LIM_SRC_3/limcons.F90

    r4873 r5055  
    1616   !!---------------------------------------------------------------------- 
    1717   USE phycst         ! physical constants 
    18    USE par_ice        ! LIM-3 parameter 
    1918   USE ice            ! LIM-3 variables 
    2019   USE dom_ice        ! LIM-3 domain 
  • branches/2015/dev_r5044_CNRS_LIM3CLEAN/NEMOGCM/NEMO/LIM_SRC_3/limctl.F90

    r5051 r5055  
    1515   USE oce             ! ocean dynamics and tracers 
    1616   USE dom_oce         ! ocean space and time domain 
    17    USE par_ice         ! sea-ice parameters 
    1817   USE ice             ! LIM-3: ice variables 
    1918   USE thd_ice         ! LIM-3: thermodynamical variables 
  • branches/2015/dev_r5044_CNRS_LIM3CLEAN/NEMOGCM/NEMO/LIM_SRC_3/limdiahsb.F90

    r5051 r5055  
    1414   !!---------------------------------------------------------------------- 
    1515   USE ice             ! LIM-3: sea-ice variable 
    16    USE par_ice         ! LIM-3: ice parameters 
    1716   USE dom_ice         ! LIM-3: sea-ice domain 
    1817   USE dom_oce         ! ocean domain 
  • branches/2015/dev_r5044_CNRS_LIM3CLEAN/NEMOGCM/NEMO/LIM_SRC_3/limdyn.F90

    r5053 r5055  
    2020   USE sbc_ice          ! Surface boundary condition: ice   fields 
    2121   USE ice              ! LIM-3 variables 
    22    USE par_ice          ! LIM-3 parameters 
    2322   USE dom_ice          ! LIM-3 domain 
    2423   USE limrhg           ! LIM-3 rheology 
  • branches/2015/dev_r5044_CNRS_LIM3CLEAN/NEMOGCM/NEMO/LIM_SRC_3/limistate.F90

    r5051 r5055  
    2222   USE eosbn2           ! equation of state 
    2323   USE ice              ! sea-ice variables 
    24    USE par_ice          ! ice parameters 
    2524   USE par_oce          ! ocean parameters 
    2625   USE dom_ice          ! sea-ice domain 
  • branches/2015/dev_r5044_CNRS_LIM3CLEAN/NEMOGCM/NEMO/LIM_SRC_3/limitd_me.F90

    r5053 r5055  
    1818   USE thd_ice          ! LIM thermodynamics 
    1919   USE ice              ! LIM variables 
    20    USE par_ice          ! LIM parameters 
    2120   USE dom_ice          ! LIM domain 
    2221   USE limthd_lac       ! LIM 
  • branches/2015/dev_r5044_CNRS_LIM3CLEAN/NEMOGCM/NEMO/LIM_SRC_3/limitd_th.F90

    r5053 r5055  
    2424   USE thd_ice          ! LIM-3 thermodynamic variables 
    2525   USE ice              ! LIM-3 variables 
    26    USE par_ice          ! LIM-3 parameters 
    2726   USE limvar           ! LIM-3 variables 
    2827   USE limcons          ! LIM-3 conservation 
  • branches/2015/dev_r5044_CNRS_LIM3CLEAN/NEMOGCM/NEMO/LIM_SRC_3/limrst.F90

    r5053 r5055  
    1818   USE ice            ! sea-ice variables 
    1919   USE oce     , ONLY :  snwice_mass, snwice_mass_b 
    20    USE par_ice        ! sea-ice parameters 
    2120   USE dom_oce        ! ocean domain 
    2221   USE sbc_oce        ! Surface boundary condition: ocean fields 
  • branches/2015/dev_r5044_CNRS_LIM3CLEAN/NEMOGCM/NEMO/LIM_SRC_3/limsbc.F90

    r5053 r5055  
    2525   USE par_oce          ! ocean parameters 
    2626   USE phycst           ! physical constants 
    27    USE par_ice          ! ice parameters 
    2827   USE dom_oce          ! ocean domain 
    2928   USE dom_ice,    ONLY : tms, area 
  • branches/2015/dev_r5044_CNRS_LIM3CLEAN/NEMOGCM/NEMO/LIM_SRC_3/limthd.F90

    r5053 r5055  
    2424   USE oce     , ONLY : fraqsr_1lev  
    2525   USE ice            ! LIM: sea-ice variables 
    26    USE par_ice        ! LIM: sea-ice parameters 
    2726   USE sbc_oce        ! Surface boundary condition: ocean fields 
    2827   USE sbc_ice        ! Surface boundary condition: ice fields 
  • branches/2015/dev_r5044_CNRS_LIM3CLEAN/NEMOGCM/NEMO/LIM_SRC_3/limthd_dh.F90

    r5053 r5055  
    2020   USE sbc_oce        ! Surface boundary condition: ocean fields 
    2121   USE ice            ! LIM variables 
    22    USE par_ice        ! LIM parameters 
    2322   USE thd_ice        ! LIM thermodynamics 
    2423   USE in_out_manager ! I/O manager 
  • branches/2015/dev_r5044_CNRS_LIM3CLEAN/NEMOGCM/NEMO/LIM_SRC_3/limthd_dif.F90

    r5051 r5055  
    1919   USE phycst         ! physical constants (ocean directory)  
    2020   USE ice            ! LIM-3 variables 
    21    USE par_ice        ! LIM-3 parameters 
    2221   USE thd_ice        ! LIM-3: thermodynamics 
    2322   USE in_out_manager ! I/O manager 
  • branches/2015/dev_r5044_CNRS_LIM3CLEAN/NEMOGCM/NEMO/LIM_SRC_3/limthd_ent.F90

    r5051 r5055  
    2525   USE sbc_oce        ! Surface boundary condition: ocean fields 
    2626   USE ice            ! LIM variables 
    27    USE par_ice        ! LIM parameters 
    2827   USE thd_ice        ! LIM thermodynamics 
    2928   USE limvar         ! LIM variables 
  • branches/2015/dev_r5044_CNRS_LIM3CLEAN/NEMOGCM/NEMO/LIM_SRC_3/limthd_lac.F90

    r5047 r5055  
    2222   USE thd_ice        ! LIM thermodynamics 
    2323   USE dom_ice        ! LIM domain 
    24    USE par_ice        ! LIM parameters 
    2524   USE ice            ! LIM variables 
    2625   USE limtab         ! LIM 2D <==> 1D 
  • branches/2015/dev_r5044_CNRS_LIM3CLEAN/NEMOGCM/NEMO/LIM_SRC_3/limthd_sal.F90

    r5051 r5055  
    1818   USE sbc_oce        ! Surface boundary condition: ocean fields 
    1919   USE ice            ! LIM variables 
    20    USE par_ice        ! LIM parameters 
    2120   USE thd_ice        ! LIM thermodynamics 
    2221   USE limvar         ! LIM variables 
  • branches/2015/dev_r5044_CNRS_LIM3CLEAN/NEMOGCM/NEMO/LIM_SRC_3/limtrp.F90

    r5053 r5055  
    1717   USE dom_oce        ! ocean domain 
    1818   USE sbc_oce        ! ocean surface boundary condition 
    19    USE par_ice        ! ice parameter 
    2019   USE dom_ice        ! ice domain 
    2120   USE ice            ! ice variables 
  • branches/2015/dev_r5044_CNRS_LIM3CLEAN/NEMOGCM/NEMO/LIM_SRC_3/limupdate1.F90

    r5053 r5055  
    3131   USE limrst 
    3232   USE thd_ice         ! LIM thermodynamic sea-ice variables 
    33    USE par_ice 
    3433   USE limitd_th 
    3534   USE limitd_me 
  • branches/2015/dev_r5044_CNRS_LIM3CLEAN/NEMOGCM/NEMO/LIM_SRC_3/limupdate2.F90

    r5053 r5055  
    3131   USE limrst 
    3232   USE thd_ice         ! LIM thermodynamic sea-ice variables 
    33    USE par_ice 
    3433   USE limitd_th 
    3534   USE limitd_me 
  • branches/2015/dev_r5044_CNRS_LIM3CLEAN/NEMOGCM/NEMO/LIM_SRC_3/limvar.F90

    r5053 r5055  
    4040   USE sbc_oce        ! Surface boundary condition: ocean fields 
    4141   USE ice            ! ice variables 
    42    USE par_ice        ! ice parameters 
    4342   USE thd_ice        ! ice variables (thermodynamics) 
    4443   USE dom_ice        ! ice domain 
  • branches/2015/dev_r5044_CNRS_LIM3CLEAN/NEMOGCM/NEMO/LIM_SRC_3/limwri.F90

    r5051 r5055  
    2424   USE lib_mpp         ! MPP library 
    2525   USE wrk_nemo        ! work arrays 
    26    USE par_ice 
    2726   USE iom 
    2827   USE timing          ! Timing 
  • branches/2015/dev_r5044_CNRS_LIM3CLEAN/NEMOGCM/NEMO/LIM_SRC_3/thd_ice.F90

    r5053 r5055  
    66   !! History :  3.0  !  2002-11  (C. Ethe)  F90: Free form and module 
    77   !!---------------------------------------------------------------------- 
    8    USE par_ice        ! LIM-3 parameters 
    98   USE in_out_manager ! I/O manager 
    109   USE lib_mpp        ! MPP library 
     10   USE ice, ONLY :   nlay_i, nlay_s 
    1111 
    1212   IMPLICIT NONE 
  • branches/2015/dev_r5044_CNRS_LIM3CLEAN/NEMOGCM/NEMO/OPA_SRC/BDY/bdydta.F90

    r5053 r5055  
    3333   USE ice_2 
    3434#elif defined key_lim3 
    35    USE par_ice 
    3635   USE ice 
    3736   USE limvar          ! redistribute ice input into categories 
  • branches/2015/dev_r5044_CNRS_LIM3CLEAN/NEMOGCM/NEMO/OPA_SRC/BDY/bdyice_lim.F90

    r5053 r5055  
    2626   USE dom_ice_2       ! sea-ice domain 
    2727#elif defined key_lim3 
    28    USE par_ice 
    2928   USE ice             ! LIM_3 ice variables 
    3029   USE dom_ice         ! sea-ice domain 
  • branches/2015/dev_r5044_CNRS_LIM3CLEAN/NEMOGCM/NEMO/OPA_SRC/DIA/diadct.F90

    r4624 r5055  
    4242#endif 
    4343#if defined key_lim3 
    44   USE par_ice 
    4544  USE ice 
    4645#endif 
  • branches/2015/dev_r5044_CNRS_LIM3CLEAN/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90

    r5043 r5055  
    3333   USE icb_oce, ONLY :   nclasses, class_num       !  !: iceberg classes 
    3434#if defined key_lim3 
    35    USE par_ice 
     35   USE ice    , ONLY :   jpl 
    3636#elif defined key_lim2 
    3737   USE par_ice_2 
  • branches/2015/dev_r5044_CNRS_LIM3CLEAN/NEMOGCM/NEMO/OPA_SRC/SBC/sbc_ice.F90

    r5009 r5055  
    1616   USE sbc_oce          ! surface boundary condition: ocean 
    1717# if defined key_lim3 
    18    USE par_ice          ! LIM-3 parameters 
     18   USE ice              ! LIM-3 parameters 
    1919# endif 
    2020# if defined key_lim2 
  • branches/2015/dev_r5044_CNRS_LIM3CLEAN/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90

    r5009 r5055  
    2424   USE phycst          ! physical constants 
    2525#if defined key_lim3 
    26    USE par_ice         ! ice parameters 
    2726   USE ice             ! ice variables 
    2827#endif 
  • branches/2015/dev_r5044_CNRS_LIM3CLEAN/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_lim.F90

    r5053 r5055  
    2222   USE oce             ! ocean dynamics and tracers 
    2323   USE dom_oce         ! ocean space and time domain 
    24    USE par_ice         ! sea-ice parameters 
    2524   USE ice             ! LIM-3: ice variables 
    2625   USE thd_ice         ! LIM-3: thermodynamical variables 
     
    304303      IF(lwp) WRITE(numout,*) '~~~~~~~~~~~   via Louvain la Neuve Ice Model (LIM-3) time stepping' 
    305304      ! 
     305                                       ! Open the reference and configuration namelist files and namelist output file  
     306      CALL ctl_opn( numnam_ice_ref, 'namelist_ice_ref',    'OLD',     'FORMATTED', 'SEQUENTIAL', -1, numout, lwp )  
     307      CALL ctl_opn( numnam_ice_cfg, 'namelist_ice_cfg',    'OLD',     'FORMATTED', 'SEQUENTIAL', -1, numout, lwp ) 
     308      IF(lwm) CALL ctl_opn( numoni, 'output.namelist.ice', 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp, 1 ) 
     309 
     310      CALL ice_run                     ! set some ice run parameters including jpl, nlay_i and nlay_s 
    306311      !                                ! Allocate the ice arrays 
    307312      ierr =        ice_alloc        ()      ! ice variables 
     
    316321      !                                ! adequation jpk versus ice/snow layers/categories 
    317322      IF( jpl > jpk .OR. (nlay_i+1) > jpk .OR. nlay_s > jpk )   & 
    318          &      CALL ctl_stop( 'STOP',                     & 
     323         &      CALL ctl_stop( 'STOP',                          & 
    319324         &     'sbc_lim_init: the 3rd dimension of workspace arrays is too small.',   & 
    320325         &     'use more ocean levels or less ice/snow layers/categories.' ) 
    321  
    322                                        ! Open the reference and configuration namelist files and namelist output file  
    323       CALL ctl_opn( numnam_ice_ref, 'namelist_ice_ref',    'OLD',     'FORMATTED', 'SEQUENTIAL', -1, numout, lwp )  
    324       CALL ctl_opn( numnam_ice_cfg, 'namelist_ice_cfg',    'OLD',     'FORMATTED', 'SEQUENTIAL', -1, numout, lwp ) 
    325       IF(lwm) CALL ctl_opn( numoni, 'output.namelist.ice', 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp, 1 ) 
    326       ! 
    327       CALL ice_run                     ! set some ice run parameters 
     326      ! 
    328327      ! 
    329328      CALL lim_thd_init                ! set ice thermodynics parameters 
     
    335334      CALL lim_itd_init                ! ice thickness distribution initialization 
    336335      ! 
    337       CALL lim_itd_me_init             ! ice thickness distribution initialization 
     336      CALL lim_itd_me_init             ! ice thickness distribution initialization for mecanical deformation 
    338337      !                                ! Initial sea-ice state 
    339338      IF( .NOT. ln_rstart ) THEN              ! start from rest: sea-ice deduced from sst 
     
    373372      !! ** input   :   Namelist namicerun 
    374373      !!------------------------------------------------------------------- 
    375 !clem      NAMELIST/namicerun/ jpl, nlay_i, nlay_s, cn_icerst_in, cn_icerst_out,   & 
    376 !clem         &                ln_limdyn, amax, ln_nicep, ln_limdiahsb, ln_limdiaout 
    377       NAMELIST/namicerun/ cn_icerst_in, cn_icerst_out,   & 
     374      INTEGER  ::   ios                 ! Local integer output status for namelist read 
     375      NAMELIST/namicerun/ jpl, nlay_i, nlay_s, cn_icerst_in, cn_icerst_out,   & 
    378376         &                ln_limdyn, amax, ln_nicep, ln_limdiahsb, ln_limdiaout 
    379       INTEGER  ::   ios                 ! Local integer output status for namelist read 
    380377      !!------------------------------------------------------------------- 
    381378      !                     
     
    394391         WRITE(numout,*) 'ice_run : ice share parameters for dynamics/advection/thermo of sea-ice' 
    395392         WRITE(numout,*) ' ~~~~~~' 
    396 !clem         WRITE(numout,*) '   number of ice  categories                               = ', jpl 
    397 !clem         WRITE(numout,*) '   number of ice  layers                                   = ', nlay_i 
    398 !clem         WRITE(numout,*) '   number of snow layers                                   = ', nlay_s 
     393         WRITE(numout,*) '   number of ice  categories                               = ', jpl 
     394         WRITE(numout,*) '   number of ice  layers                                   = ', nlay_i 
     395         WRITE(numout,*) '   number of snow layers                                   = ', nlay_s 
    399396         WRITE(numout,*) '   switch for ice dynamics (1) or not (0)      ln_limdyn   = ', ln_limdyn 
    400397         WRITE(numout,*) '   maximum ice concentration                               = ', amax  
Note: See TracChangeset for help on using the changeset viewer.