Changeset 1282 for LMDZ4/trunk/libf


Ignore:
Timestamp:
Dec 16, 2009, 12:23:05 PM (15 years ago)
Author:
Ehouarn Millour
Message:

Bug fix: variables cannot be both 'save' and 'common'

(this error is tolerated by most compilers;

but not xlf)

EM

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ4/trunk/libf/phylmd/pbl_surface_mod.F90

    r1279 r1282  
    466466! Declarations specifiques pour le 1D. A reprendre
    467467  REAL  :: fsens,flat
    468   LOGICAL :: ok_flux_surf=.FALSE.
     468  LOGICAL :: ok_flux_surf ! initialized during first_call below
    469469  COMMON /flux_arp/fsens,flat,ok_flux_surf
    470470!****************************************************************************************
     
    482482       first_call=.FALSE.
    483483     
     484       ! Initialize ok_flux_surf (for 1D model)
     485       ok_flux_surf=.FALSE.
     486       
    484487       ! Initilize debug IO
    485488       IF (debugindex .AND. mpi_size==1) THEN
Note: See TracChangeset for help on using the changeset viewer.