Changes between Version 10 and Version 11 of HowTo/FortranStandards


Ignore:
Timestamp:
2013-04-24T15:36:47+02:00 (11 years ago)
Author:
jryder
Comment:

--

Legend:

Unmodified
Added
Removed
Modified

  • HowTo/FortranStandards

    v10 v11  
    7979    DO k = j, 1 
    8080        jfactor = jfactor * (1.0d0 - jomega(k)) 
    81     END DO ! k = nlevels, 1 
     81    END DO ! k = j, 1 
    8282 
    8383    eta_3_surf = eta_3_surf + (jomega_surf * jomega(j) * jfactor * sbsigma * temp_leaf_pres(j)**4.0d0)