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 8514 for branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icevar.F90 – NEMO

Ignore:
Timestamp:
2017-09-08T17:09:25+02:00 (7 years ago)
Author:
clem
Message:

changes in style - part5 - almost done

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icevar.F90

    r8500 r8514  
    191191      o_i(:,:,:)  = oa_i(:,:,:) * z1_a_i(:,:,:)    !--- ice age 
    192192 
    193       IF( nn_icesal == 2 )THEN                     !--- salinity (with a minimum value imposed everywhere) 
     193      IF( nn_icesal == 2 ) THEN                    !--- salinity (with a minimum value imposed everywhere) 
    194194         WHERE( v_i(:,:,:) > epsi20 )   ;   sm_i(:,:,:) = MAX( rn_simin , smv_i(:,:,:) / v_i(:,:,:) ) 
    195195         ELSEWHERE                      ;   sm_i(:,:,:) = rn_simin 
    … …  
    289289      !!------------------------------------------------------------------ 
    290290 
    291 !!gm  much much more secure to defined when reading nn_icesal in the namelist integers =1, 2, 3  with explicit names 
    292 !!       for example np_Scst_noProfile = 1  ;  np_Svar_linProfile = 2   ;   np_Scst_fixProfile 
    293  
    294291!!gm Question: Remove the option 3 ?  How many years since it last use ?  
    295292 
    296293      SELECT CASE ( nn_icesal ) 
    297294      ! 
    298       !              !---------------------------------------! 
    299       CASE( 1 )      !  constant salinity in time and space  ! 
    300          !           !---------------------------------------! 
     295      !               !---------------------------------------! 
     296      CASE( 1 )       !  constant salinity in time and space  ! 
     297         !            !---------------------------------------! 
    301298         s_i (:,:,:,:) = rn_icesal 
    302299         sm_i(:,:,:)   = rn_icesal 
    303300         ! 
    304          !           !---------------------------------------------! 
    305       CASE( 2 )      !  time varying salinity with linear profile  ! 
    306          !           !---------------------------------------------! 
     301         !            !---------------------------------------------! 
     302      CASE( 2 )       !  time varying salinity with linear profile  ! 
     303         !            !---------------------------------------------! 
    307304         ! 
    308305         ALLOCATE( z_slope_s(jpi,jpj,jpl) , zalpha(jpi,jpj,jpl) ) 
    … …  
    343340         DEALLOCATE( z_slope_s , zalpha ) 
    344341         ! 
    345          !           !-------------------------------------------! 
    346       CASE( 3 )      ! constant salinity with a fix profile      ! (Schwarzacher (1959) multiyear salinity profile 
    347          !           !-------------------------------------------!                                   (mean = 2.30) 
     342         !            !-------------------------------------------! 
     343      CASE( 3 )       ! constant salinity with a fix profile      ! (Schwarzacher (1959) multiyear salinity profile 
     344         !            !-------------------------------------------!                                   (mean = 2.30) 
    348345         ! 
    349346         sm_i(:,:,:) = 2.30_wp 
    … …  
    415412      SELECT CASE ( nn_icesal ) 
    416413      ! 
    417       !              !---------------------------------------! 
    418       CASE( 1 )      !  constant salinity in time and space  ! 
    419          !           !---------------------------------------! 
     414      !               !---------------------------------------! 
     415      CASE( 1 )       !  constant salinity in time and space  ! 
     416         !            !---------------------------------------! 
    420417         s_i_1d(:,:) = rn_icesal 
    421418         ! 
    422          !           !---------------------------------------------! 
    423       CASE( 2 )      !  time varying salinity with linear profile  ! 
    424          !           !---------------------------------------------! 
     419         !            !---------------------------------------------! 
     420      CASE( 2 )       !  time varying salinity with linear profile  ! 
     421         !            !---------------------------------------------! 
    425422         ! 
    426423         ALLOCATE( z_slope_s(jpij) ) 
    … …  
    445442         DEALLOCATE( z_slope_s ) 
    446443 
    447          !           !-------------------------------------------! 
    448       CASE( 3 )      ! constant salinity with a fix profile      ! (Schwarzacher (1959) multiyear salinity profile 
    449          !           !-------------------------------------------!                                   (mean = 2.30) 
     444         !            !-------------------------------------------! 
     445      CASE( 3 )       ! constant salinity with a fix profile      ! (Schwarzacher (1959) multiyear salinity profile 
     446         !            !-------------------------------------------!                                   (mean = 2.30) 
    450447         ! 
    451448         sm_i_1d(:) = 2.30_wp 
    … …  
    572569      !!                  ice thickness distribution follows a gaussian law 
    573570      !!               around the concentration of the most likely ice thickness 
    574       !!                           (similar as iceist.F90) 
     571      !!                           (similar as iceistate.F90) 
    575572      !! 
    576573      !! ** Method:   Iterative procedure 
Note: See TracChangeset for help on using the changeset viewer.