Changeset 3478 for LMDZ6/branches


Ignore:
Timestamp:
Apr 16, 2019, 5:19:00 PM (6 years ago)
Author:
lguez
Message:

Polish.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Ocean_skin/libf/phylmd/surf_ocean_mod.F90

    r3463 r3478  
    325325            tau = sqrt(flux_u1(:knon)**2 + flux_v1(:knon)**2), rhoa = rhoa, &
    326326            xlv = xlv, rf = rf, dtime = dtime, rns = swnet(:knon))
     327       if (activate_ocean_skin == 2) tsurf_new(:knon) = t_int
    327328    end if
    328329   
    329     if (activate_ocean_skin == 2) tsurf_new(:knon) = t_int
    330 
    331330  END SUBROUTINE surf_ocean
    332331  !****************************************************************************
Note: See TracChangeset for help on using the changeset viewer.