Ignore:
Timestamp:
2017-09-05T19:53:41+02:00 (3 years ago)
Author:
clem
Message:

changes in style - part2 -

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icethd_sal.F90

    r8486 r8498  
    5353      !!--------------------------------------------------------------------- 
    5454 
    55       !--------------------------------------------------------------------| 
    56       ! 1) salinity constant in time                                       | 
    57       !--------------------------------------------------------------------| 
    58       ! do nothing 
    59  
    60       !----------------------------------------------------------------------| 
    61       !  2) salinity varying in time                                         | 
    62       !----------------------------------------------------------------------| 
    63       IF(  nn_icesal == 2  ) THEN 
    64  
     55      SELECT CASE ( nn_icesal ) 
     56      ! 
     57      !              !---------------------------------------------! 
     58      CASE( 2 )      !  time varying salinity with linear profile  ! 
     59      !              !---------------------------------------------! 
    6560         DO ji = 1, nidx 
    6661 
     
    9691         CALL ice_var_salprof1d 
    9792         ! 
    98       ENDIF  
    99  
    100       !------------------------------------------------------------------------------| 
    101       !  3) vertical profile of salinity, constant in time                           | 
    102       !------------------------------------------------------------------------------| 
    103       IF(  nn_icesal == 3  )   CALL ice_var_salprof1d 
     93      !                 !---------------------------------------------! 
     94      CASE( 3 )         ! constant salinity with a fix profile        ! (Schwarzacher (1959) multiyear salinity profile(mean = 2.30) 
     95      !                 !---------------------------------------------! 
     96         CALL ice_var_salprof1d 
    10497      ! 
     98   END SELECT 
     99   ! 
    105100   END SUBROUTINE ice_thd_sal 
    106101 
Note: See TracChangeset for help on using the changeset viewer.