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 11627 for NEMO/trunk/src/ICE/icedyn_adv_pra.F90 – NEMO

Ignore:
Timestamp:
2019-10-01T15:34:06+02:00 (5 years ago)
Author:
clem
Message:

change some wrong comments

File:
1 edited

Legend:

Unmodified
Added
Removed

  • NEMO/trunk/src/ICE/icedyn_adv_pra.F90

    r11612 r11627  
    3636   REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:,:)   ::   sxice, syice, sxxice, syyice, sxyice   ! ice thickness  
    3737   REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:,:)   ::   sxsn , sysn , sxxsn , syysn , sxysn    ! snow thickness 
    38    REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:,:)   ::   sxa  , sya  , sxxa  , syya  , sxya     ! lead fraction 
     38   REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:,:)   ::   sxa  , sya  , sxxa  , syya  , sxya     ! ice concentration 
    3939   REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:,:)   ::   sxsal, sysal, sxxsal, syysal, sxysal   ! ice salinity 
    4040   REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:,:)   ::   sxage, syage, sxxage, syyage, sxyage   ! ice age 
    … …  
    653653            CALL iom_get( numrir, jpdom_autoglo, 'syysn' , syysn  ) 
    654654            CALL iom_get( numrir, jpdom_autoglo, 'sxysn' , sxysn  ) 
    655             !                                                        ! lead fraction 
     655            !                                                        ! ice concentration 
    656656            CALL iom_get( numrir, jpdom_autoglo, 'sxa'   , sxa    ) 
    657657            CALL iom_get( numrir, jpdom_autoglo, 'sya'   , sya    ) 
    … …  
    716716            sxice = 0._wp   ;   syice = 0._wp   ;   sxxice = 0._wp   ;   syyice = 0._wp   ;   sxyice = 0._wp      ! ice thickness 
    717717            sxsn  = 0._wp   ;   sysn  = 0._wp   ;   sxxsn  = 0._wp   ;   syysn  = 0._wp   ;   sxysn  = 0._wp      ! snow thickness 
    718             sxa   = 0._wp   ;   sya   = 0._wp   ;   sxxa   = 0._wp   ;   syya   = 0._wp   ;   sxya   = 0._wp      ! lead fraction 
     718            sxa   = 0._wp   ;   sya   = 0._wp   ;   sxxa   = 0._wp   ;   syya   = 0._wp   ;   sxya   = 0._wp      ! ice concentration 
    719719            sxsal = 0._wp   ;   sysal = 0._wp   ;   sxxsal = 0._wp   ;   syysal = 0._wp   ;   sxysal = 0._wp      ! ice salinity 
    720720            sxage = 0._wp   ;   syage = 0._wp   ;   sxxage = 0._wp   ;   syyage = 0._wp   ;   sxyage = 0._wp      ! ice age 
    … …  
    750750         CALL iom_rstput( iter, nitrst, numriw, 'syysn' , syysn  ) 
    751751         CALL iom_rstput( iter, nitrst, numriw, 'sxysn' , sxysn  ) 
    752          !                                                           ! lead fraction 
     752         !                                                           ! ice concentration 
    753753         CALL iom_rstput( iter, nitrst, numriw, 'sxa'   , sxa    ) 
    754754         CALL iom_rstput( iter, nitrst, numriw, 'sya'   , sya    ) 
Note: See TracChangeset for help on using the changeset viewer.