Changeset 1887 for LMDZ5


Ignore:
Timestamp:
Oct 11, 2013, 12:02:50 PM (11 years ago)
Author:
Laurent Fairhead
Message:

Common ought to be placed in an include file

Location:
LMDZ5/trunk/libf/phylmd
Files:
1 added
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/phylmd/pbl_surface_mod.F90

    r1872 r1887  
    271271!****************************************************************************************
    272272! Declarations specifiques pour le 1D. A reprendre
     273    INCLUDE "flux_arp.h"
    273274! Input variables
    274275!****************************************************************************************
    … …  
    511512
    512513!****************************************************************************************
    513 ! Declarations specifiques pour le 1D. A reprendre
    514 !****************************************************************************************
    515   REAL  :: fsens,flat
    516   LOGICAL :: ok_flux_surf ! initialized during first_call below
    517   COMMON /flux_arp/fsens,flat,ok_flux_surf
    518514! End of declarations
    519515!****************************************************************************************
Note: See TracChangeset for help on using the changeset viewer.