Ignore:
Timestamp:
2017-09-01T18:15:45+02:00 (3 years ago)
Author:
clem
Message:

debug icevar.F90

File:
1 edited

Legend:

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

    r8488 r8491  
    206206      zlay_i   = REAL( nlay_i , wp )    ! number of layers 
    207207      zaaa     = cpic                   ! Conversion q(S,T) -> T (second order equation) 
    208       z1_2aaa  = 1._wp / 2._wp *zaaa 
     208      z1_2aaa  = 1._wp / ( 2._wp * zaaa ) 
    209209      zcpMcpic = rcp - cpic 
    210210      DO jl = 1, jpl 
Note: See TracChangeset for help on using the changeset viewer.