Ignore:
Timestamp:
Jun 24, 2020, 11:27:16 AM (4 years ago)
Author:
dubos
Message:

simple_physics : turn zc, zd, capcal, fluxgrd into local temporaries

File:
1 edited

Legend:

Unmodified
Added
Removed

  • dynamico_lmdz/simple_physics/phyparam/physics/radiative_sw.F90

    r4243 r4245  
    6969    REAL :: buf1(ngrid), buf2(ngrid, nlayer+1) ! buffers for output
    7070    ! fluxes are non-zero only on those points where the sun shines (mu0>0)
    71     ! We compute only on those ncount points and gather them to vectorize 
     71    ! We compute only on those ncount points and gather them to vectorize
    7272    INTEGER :: ncount, index(ngrid)
    7373    ! In the work arrays below, ngrid should be ncount but ncount is not known yet
Note: See TracChangeset for help on using the changeset viewer.