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 826 – NEMO

Changeset 826


Ignore:
Timestamp:
2008-03-06T13:05:46+01:00 (16 years ago)
Author:
ctlod
Message:

dev_002_LIM: change remaining cpp key key_ice_lim into key_lim3, see ticket:#71

Location:
branches/dev_002_LIM/NEMO
Files:
20 edited

Legend:

Unmodified
Added
Removed

  • branches/dev_002_LIM/NEMO/C1D_SRC/diawri1d.F90

    r719 r826  
    194194            &          jpi, jpj, nh_T, 1  , 1, 1  , -99 , 32, clop, zsto, zout ) 
    195195 
    196 #if ! defined key_dynspg_rl && defined key_ice_lim 
     196#if ! defined key_dynspg_rl && defined key_lim3 
    197197         ! sowaflup = sowaflep + sorunoff + sowafldp + a term associated to 
    198198         !    internal damping to Levitus that can be diagnosed from others 
    … …  
    238238#endif 
    239239 
    240 #if ( defined key_coupled && ! defined key_ice_lim )  
     240#if ( defined key_coupled && ! defined key_lim3 )  
    241241         CALL histdef( nid_T, "sohefldp", "Surface Heat Flux: Damping"         , "W/m2"   ,   &  ! qrp 
    242242            &          jpi, jpj, nh_T, 1  , 1, 1  , -99 , 32, clop, zsto, zout ) 
    … …  
    260260#endif 
    261261 
    262 #if defined key_ice_lim && defined key_coupled 
     262#if defined key_lim3 && defined key_coupled 
    263263         CALL histdef( nid_T,"soicetem" , "Ice Surface Temperature"            , "K"      ,   &  ! tn_ice 
    264264            &          jpi, jpj, nh_T, 1  , 1, 1  , -99 , 32, clop, zsto, zout ) 
    … …  
    365365      CALL histwrite( nid_T, "sosstsst", it, tn(:,:,1)     , ndim_hT, ndex_hT )   ! sea surface temperature 
    366366      CALL histwrite( nid_T, "sosaline", it, sn(:,:,1)     , ndim_hT, ndex_hT )   ! sea surface salinity 
    367 #if ! defined key_dynspg_rl && defined key_ice_lim 
     367#if ! defined key_dynspg_rl && defined key_lim3 
    368368      CALL histwrite( nid_T, "iowaflup", it, fsalt(:,:)    , ndim_hT, ndex_hT )   ! ice=>ocean water flux 
    369369      CALL histwrite( nid_T, "sowaflep", it, fmass(:,:)    , ndim_hT, ndex_hT )   ! atmos=>ocean water flux 
    … …  
    397397      CALL histwrite( nid_T, "sosafldp", it, zw2d          , ndim_hT, ndex_hT )   ! salt flux damping 
    398398#endif 
    399 #if ( defined key_coupled && ! defined key_ice_lim )  
     399#if ( defined key_coupled && ! defined key_lim3 )  
    400400      CALL histwrite( nid_T, "sohefldp", it, qrp           , ndim_hT, ndex_hT )   ! heat flux damping 
    401401      CALL histwrite( nid_T, "sowafldp", it, erp           , ndim_hT, ndex_hT )   ! freshwater flux damping 
    … …  
    412412      CALL histwrite( nid_T, "sohtc300", it, htc3          , ndim_hT, ndex_hT )   ! first 300m heaat content 
    413413#endif 
    414 #if defined key_ice_lim &&  defined key_coupled  
     414#if defined key_lim3 &&  defined key_coupled  
    415415      CALL histwrite( nid_T, "soicetem", it, tn_ice        , ndim_hT, ndex_hT )   ! surf. ice temperature 
    416416      CALL histwrite( nid_T, "soicealb", it, alb_ice       , ndim_hT, ndex_hT )   ! ice albedo 

  • branches/dev_002_LIM/NEMO/C1D_SRC/icestp1d.F90

    r719 r826  
    66   !! History :   9.0  !  04-10  (C. Ethe)  from icestp, 1D configuration 
    77   !!---------------------------------------------------------------------- 
    8 #if defined key_cfg_1d && defined key_ice_lim 
     8#if defined key_cfg_1d && defined key_lim3 
    99   !!---------------------------------------------------------------------- 
    1010   !!   'key_cfg_1d'  .AND.                                1D Configuration 
    11    !!   'key_ice_lim'                                     Lim sea-ice model 
     11   !!   'key_lim3'                                     Lim sea-ice model 
    1212   !!---------------------------------------------------------------------- 
    1313   !!---------------------------------------------------------------------- 

  • branches/dev_002_LIM/NEMO/NST_SRC/agrif_user.F90

    r824 r826  
    6262      USE sol_oce 
    6363      USE in_out_manager 
    64 #if defined key_ice_lim || defined key_ice_lim_old 
     64#if defined key_lim3 || defined key_lim3_old 
    6565      USE ice_oce 
    6666#endif 

  • branches/dev_002_LIM/NEMO/OPA_SRC/DIA/diawri.F90

    r824 r826  
    245245            &          jpi, jpj, nh_T, 1  , 1, 1  , -99 , 32, clop, zsto, zout ) 
    246246#endif 
    247 #if ! defined key_dynspg_rl && ( defined key_ice_lim || defined key_lim2 ) 
     247#if ! defined key_dynspg_rl && ( defined key_lim3 || defined key_lim2 ) 
    248248         ! sowaflup = sowaflep + sorunoff + sowafldp + a term associated to 
    249249         !    internal damping to Levitus that can be diagnosed from others 
    … …  
    291291 
    292292 
    293 #if defined key_coupled &&  ! defined key_ice_lim && ! defined key_lim2    
     293#if defined key_coupled &&  ! defined key_lim3 && ! defined key_lim2    
    294294         CALL histdef( nid_T, "sohefldp", "Surface Heat Flux: Damping"         , "W/m2"   ,   &  ! qrp 
    295295            &          jpi, jpj, nh_T, 1  , 1, 1  , -99 , 32, clop, zsto, zout ) 
    … …  
    317317#endif 
    318318 
    319 #if ( defined key_ice_lim  || defined key_lim2 ) && defined key_coupled 
     319#if ( defined key_lim3  || defined key_lim2 ) && defined key_coupled 
    320320         CALL histdef( nid_T,"soicetem" , "Ice Surface Temperature"            , "K"      ,   &  ! tn_ice 
    321321            &          jpi, jpj, nh_T, 1  , 1, 1  , -99 , 32, clop, zsto, zout ) 
    … …  
    423423      CALL histwrite( nid_T, "sossheig", it, sshn          , ndim_hT, ndex_hT )   ! sea surface height 
    424424#endif 
    425 #if ! defined key_dynspg_rl && ( defined key_ice_lim || defined key_lim2 ) 
     425#if ! defined key_dynspg_rl && ( defined key_lim3 || defined key_lim2 ) 
    426426      CALL histwrite( nid_T, "iowaflup", it, fsalt(:,:)    , ndim_hT, ndex_hT )   ! ice=>ocean water flux 
    427427      CALL histwrite( nid_T, "sowaflep", it, fmass(:,:)    , ndim_hT, ndex_hT )   ! atmos=>ocean water flux 
    … …  
    448448      CALL histwrite( nid_T, "sosbhfup", it, qsb           , ndim_hT, ndex_hT )   ! sensible heat flux 
    449449#endif 
    450 #if  defined key_coupled && ! defined key_ice_lim && ! defined key_lim2  
     450#if  defined key_coupled && ! defined key_lim3 && ! defined key_lim2  
    451451      CALL histwrite( nid_T, "sohefldp", it, qrp           , ndim_hT, ndex_hT )   ! heat flux damping 
    452452      CALL histwrite( nid_T, "sowafldp", it, erp           , ndim_hT, ndex_hT )   ! freshwater flux damping 
    … …  
    466466      CALL histwrite( nid_T, "sohtc300", it, htc3          , ndim_hT, ndex_hT )   ! first 300m heaat content 
    467467#endif 
    468 #if ( defined key_ice_lim  ||  defined key_lim2 ) &&  defined key_coupled  
     468#if ( defined key_lim3  ||  defined key_lim2 ) &&  defined key_coupled  
    469469      CALL histwrite( nid_T, "soicetem", it, tn_ice        , ndim_hT, ndex_hT )   ! surf. ice temperature 
    470470      CALL histwrite( nid_T, "soicealb", it, alb_ice       , ndim_hT, ndex_hT )   ! ice albedo 

  • branches/dev_002_LIM/NEMO/OPA_SRC/DIA/diawri_dimg.h90

    r824 r826  
    187187       !        fsel(:,:,15) = fsel(:,:,15) + fbt(:,:) 
    188188       fsel(:,:,16) = fsel(:,:,16) + emps(:,:) 
    189 #if defined key_ice_lim || defined key_ice_lim_old 
     189#if defined key_lim3 || defined key_lim3_old 
    190190       fsel(:,:,17) = fsel(:,:,17) + fsalt(:,:) 
    191191#endif 
    … …  
    277277          !         fsel(:,:,15) =  fbt(:,:) 
    278278          fsel(:,:,16) =  emps(:,:) * tmask(:,:,1) 
    279 #if defined key_ice_lim || defined key_ice_lim_old 
     279#if defined key_lim3 || defined key_lim3_old 
    280280          fsel(:,:,17) =  fsalt(:,:) * tmask(:,:,1) 
    281281#endif 

  • branches/dev_002_LIM/NEMO/OPA_SRC/SBC/albedo.F90

    r719 r826  
    5353CONTAINS 
    5454 
    55 #if defined key_ice_lim 
    56    !!---------------------------------------------------------------------- 
    57    !!   'key_ice_lim'                                         LIM ice model 
     55#if defined key_lim3 
     56   !!---------------------------------------------------------------------- 
     57   !!   'key_lim3'                                         LIM ice model 
    5858   !!---------------------------------------------------------------------- 
    5959 

  • branches/dev_002_LIM/NEMO/OPA_SRC/SBC/bulk.F90

    r824 r826  
    5151      !! * Local declarations     
    5252      REAL(wp), DIMENSION(jpi,jpj) ::   zsst  
    53 # if ( ! defined key_ice_lim && !defined key_lim2 ) 
     53# if ( ! defined key_lim3 && !defined key_lim2 ) 
    5454      INTEGER  ::   ji, jj         ! dummy loop indices   
    5555      REAL(wp) ::   ztgel, zicopa 
    … …  
    7070     ENDIF 
    7171 
    72 # if ( ! defined key_ice_lim && ! defined key_lim2 ) 
     72# if ( ! defined key_lim3 && ! defined key_lim2 ) 
    7373      ! opa model ice freeze()       
    7474      DO jj = 1, jpj 
    … …  
    9696         gsst(:,:) = 0.     
    9797 
    98 # if ( ! defined key_ice_lim && ! defined key_lim2 ) 
     98# if ( ! defined key_lim3 && ! defined key_lim2 ) 
    9999         IF(ln_ctl) THEN         ! print mean trends (used for debugging) 
    100100            CALL prt_ctl_info(' Forcings ') 

  • branches/dev_002_LIM/NEMO/OPA_SRC/SBC/flx_oce.F90

    r824 r826  
    3030      p_emp             !: evaporation minus precipitation             
    3131 
    32 #elif defined key_ice_lim || defined key_lim2 || defined key_flx_bulk_monthly || defined key_flx_bulk_daily || defined key_flx_core 
     32#elif defined key_lim3 || defined key_lim2 || defined key_flx_bulk_monthly || defined key_flx_bulk_daily || defined key_flx_core 
    3333   REAL(wp), PUBLIC, DIMENSION(jpi,jpj)    ::   &  !: 
    3434      qsr_ice  ,      &  !: solar flux over ice 

  • branches/dev_002_LIM/NEMO/OPA_SRC/SBC/flxblk.F90

    r824 r826  
    215215      !   Initilization    ! 
    216216      !--------------------- 
    217 #if ! defined key_ice_lim 
     217#if ! defined key_lim3 
    218218      tn_ice(:,:) = psst(:,:) 
    219219#endif 

  • branches/dev_002_LIM/NEMO/OPA_SRC/SBC/flxmod.F90

    r719 r826  
    108108   !!---------------------------------------------------------------------- 
    109109   !!   'key_oasis3'  or 'key_oasis4' and           Coupled Ocan/Atmosphere 
    110    !!   'key_ice_lim'                               with  LIM sea-ice model 
     110   !!   'key_lim3'                               with  LIM sea-ice model 
    111111   !!---------------------------------------------------------------------- 
    112112#  include "flx_oasis_ice.h90" 

  • branches/dev_002_LIM/NEMO/OPA_SRC/SBC/ocesbc.F90

    r824 r826  
    6464CONTAINS 
    6565 
    66 #if defined key_ice_lim || defined key_lim2 
    67    !!---------------------------------------------------------------------- 
    68    !!   'key_ice_lim'     :                              LIM2 sea-ice model 
     66#if defined key_lim3 || defined key_lim2 
     67   !!---------------------------------------------------------------------- 
     68   !!   'key_lim3'     :                              LIM2 sea-ice model 
    6969   !!   'key_lim2'        :                              LIM3 sea-ice model 
    7070   !!---------------------------------------------------------------------- 
    … …  
    180180# elif defined key_flx_bulk_monthly || defined key_flx_bulk_daily || defined key_flx_core 
    181181      !!---------------------------------------------------------------------- 
    182       !!   'key_ice_lim'                              with  LIM sea-ice model 
     182      !!   'key_lim3'                              with  LIM sea-ice model 
    183183      !!---------------------------------------------------------------------- 
    184184 
    … …  
    817817      !!---------------------------------------------------------------------- 
    818818 
    819 #if defined key_ice_lim || defined key_lim2 
     819#if defined key_lim3 || defined key_lim2 
    820820      ! sea ice indicator (1 or 0) 
    821821      DO jj = 1, jpj 

  • branches/dev_002_LIM/NEMO/OPA_SRC/SBC/taumod.F90

    r824 r826  
    5959   !!---------------------------------------------------------------------- 
    6060   !!   'key_oasis3' or 'key_oasis4' and           Coupled Ocean/Atmosphere 
    61    !!   'key_ice_lim'or 'key_lim2'                              LIM sea-ice 
     61   !!   'key_lim3'or 'key_lim2'                              LIM sea-ice 
    6262   !!---------------------------------------------------------------------- 
    6363   ! New way: 3D referential link to the earth (avoid north pole pb) 

  • branches/dev_002_LIM/NEMO/OPA_SRC/TRA/traadv_cen2.F90

    r824 r826  
    147147               zind(ji,jj,jk) =  MAX ( upsrnfh(ji,jj) * upsrnfz(jk),     &  ! changing advection scheme near runoff 
    148148                  &                    upsadv(ji,jj)                     &  ! in the vicinity of some straits 
    149 #if defined key_ice_lim || defined key_lim2 
     149#if defined key_lim3 || defined key_lim2 
    150150                  &                  , tmask(ji,jj,jk)                   &  ! half upstream tracer fluxes 
    151151                  &                  * MAX( 0., SIGN( 1., fzptn(ji,jj)   &  ! if tn < ("freezing"+0.1 ) 

  • branches/dev_002_LIM/NEMO/OPA_SRC/cpl.F90

    r824 r826  
    569569      sieoc(:,:) = sieoc(:,:) + freeze(:,:) 
    570570 
    571 #if defined key_ice_lim || defined key_lim2 
     571#if defined key_lim3 || defined key_lim2 
    572572      alboc(:,:) = alboc(:,:) + freeze(:,:) * alb_ice(:,:) 
    573573      ticoc(:,:) = ticoc(:,:) + freeze(:,:) * tn_ice(:,:)  

  • branches/dev_002_LIM/NEMO/OPA_SRC/cpl_oce.F90

    r824 r826  
    218218      qsrc           !: solar radiation (w m-2) 
    219219 
    220 #  if defined key_ice_lim || defined key_lim3 
     220#  if defined key_lim3 || defined key_lim3 
    221221   REAL(wp), DIMENSION(jpi,jpj) ::   &  !: 
    222222      watm        ,    &  !: 

  • branches/dev_002_LIM/NEMO/OPA_SRC/ice_oce.F90

    r824 r826  
    1111   !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt  
    1212   !!---------------------------------------------------------------------- 
    13 #if defined key_lim2 || defined key_ice_lim 
     13#if defined key_lim2 || defined key_lim3 
    1414   !!---------------------------------------------------------------------- 
    15    !!   'key_lim2 or key_ice_lim '   :             LIM 2.0 or 3.0 ice model 
     15   !!   'key_lim2 or key_lim3 '   :             LIM 2.0 or 3.0 ice model 
    1616   !!---------------------------------------------------------------------- 
    1717   !! * Modules used 

  • branches/dev_002_LIM/NEMO/OPA_SRC/opa.F90

    r824 r826  
    5959 
    6060   USE phycst          ! physical constant                  (par_cst routine) 
    61 #if defined key_ice_lim 
     61#if defined key_lim3 
    6262   USE iceini          ! initialization of sea-ice         (ice_init routine) 
    6363#endif 
    … …  
    287287      CALL oc_fz_pt                         ! Surface freezing point 
    288288 
    289 #if defined key_ice_lim 
     289#if defined key_lim3 
    290290      CALL ice_init                         ! Sea ice model LIM3 
    291291#endif 

  • branches/dev_002_LIM/NEMO/OPA_SRC/restart.F90

    r824 r826  
    144144      CALL iom_rstput( kt, nitrst, numrow, 'hdivn'  , hdivn   ) 
    145145 
    146 #if defined key_ice_lim || defined key_lim2 
     146#if defined key_lim3 || defined key_lim2 
    147147      CALL iom_rstput( kt, nitrst, numrow, 'nfice'  , REAL( nfice, wp) )   !  ice computation frequency 
    148148      CALL iom_rstput( kt, nitrst, numrow, 'sst_io' , sst_io  ) 
    … …  
    210210      !!---------------------------------------------------------------------- 
    211211      REAL(wp) ::   zcoef, zkt, zrdt, zrdttra1, zndastp, znfice, znfbulk 
    212 #if defined key_ice_lim || defined key_lim2 
     212#if defined key_lim3 || defined key_lim2 
    213213      INTEGER  ::   ji, jj 
    214214#endif 
    … …  
    306306      !!sm: TO BE MOVED IN NEW SURFACE MODULE... 
    307307 
    308 #if defined key_ice_lim || defined key_lim2 
     308#if defined key_lim3 || defined key_lim2 
    309309      ! Louvain La Neuve Sea Ice Model 
    310310      IF( iom_varid( numror, 'nfice', ldstop = .FALSE. ) > 0 ) then  

  • branches/dev_002_LIM/NEMO/OPA_SRC/step.F90

    r824 r826  
    9696   USE zpshde          ! partial step: hor. derivative     (zps_hde routine) 
    9797   USE ice_oce         ! sea-ice variable 
    98 #if defined key_ice_lim 
     98#if defined key_lim3 
    9999   USE icestp          ! sea-ice time-stepping             (ice_stp routine) 
    100100#endif 
    … …  
    210210                         CALL flx( kstp )             ! heat and freshwater fluxes 
    211211 
    212 #if defined key_ice_lim 
     212#if defined key_lim3 
    213213      CALL ice_stp( kstp )           ! sea-ice model (Update stress & fluxes) 
    214214#endif 

  • branches/dev_002_LIM/NEMO/TOP_SRC/TRP/trcadv_cen2.F90

    r719 r826  
    164164               zind(ji,jj,jk) =  MAX ( upsrnfh(ji,jj) * upsrnfz(jk),     &  ! changing advection scheme near runoff 
    165165                  &                    upsadv(ji,jj)                     &  ! in the vicinity of some straits 
    166 #if defined key_ice_lim 
     166#if defined key_lim3 
    167167                  &                  , tmask(ji,jj,jk)                   &  ! half upstream tracer fluxes 
    168168                  &                  * MAX( 0., SIGN( 1., fzptn(ji,jj)   &  ! if tn < ("freezing"+0.1 ) 
Note: See TracChangeset for help on using the changeset viewer.