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 4922 for branches/2014/dev_CNRS_2014 – NEMO

Ignore:
Timestamp:
2014-11-28T15:07:10+01:00 (9 years ago)
Author:
clem
Message:

LIM3: move calculation of t_bo outside the logical ln_limini

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2014/dev_CNRS_2014/NEMOGCM/NEMO/LIM_SRC_3/limistate.F90

    r4920 r4922  
    66   !! History :  2.0  ! 2004-01 (C. Ethe, G. Madec)  Original code 
    77   !!            4.0  ! 2011-02 (G. Madec) dynamical allocation 
    8    !!             -   ! 2012    (C. Rousset) add par_oce (for jp_sal)...bug? 
     8   !!             -   ! 2014    (C. Rousset) add N/S initializations 
    99   !!---------------------------------------------------------------------- 
    1010#if defined key_lim3 
     
    7777      !! 
    7878      !! ** Notes   : o_i, t_su, t_s, t_i, s_i must be filled everywhere, even 
    79       !!              where there is no ice (clem: I do not know why but it is mandatory)  
     79      !!              where there is no ice (clem: I do not know why, is it mandatory?)  
    8080      !! 
    8181      !! History : 
     
    119119      END DO 
    120120 
     121      ! basal temperature (considered at freezing point) 
     122      t_bo(:,:) = ( eos_fzp( tsn(:,:,1,jp_sal) ) + rt0 ) * tms(:,:)  
     123 
    121124      IF( ln_limini ) THEN 
    122125 
     
    124127      ! 2) Basal temperature, ice mask and hemispheric index 
    125128      !-------------------------------------------------------------------- 
    126       t_bo(:,:) = ( eos_fzp( tsn(:,:,1,jp_sal) ) + rt0 ) * tms(:,:)  
    127129 
    128130      DO jj = 1, jpj                                       ! ice if sst <= t-freez + ttest 
     
    138140 
    139141      ! Hemispheric index 
    140       ! MV 2011 new initialization 
    141142      DO jj = 1, jpj 
    142143         DO ji = 1, jpi 
     
    148149         END DO 
    149150      END DO 
    150       ! END MV 2011 new initialization 
    151151 
    152152      !-------------------------------------------------------------------- 
Note: See TracChangeset for help on using the changeset viewer.