Changeset 1282 for LMDZ4/trunk/libf

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:

• LMDZ4/trunk/libf/phylmd/pbl_surface_mod.F90 (modified) (2 diffs)

LMDZ4/trunk/libf/phylmd/pbl_surface_mod.F90

@@ -466 +466 @@
 ! Declarations specifiques pour le 1D. A reprendre 
   REAL  :: fsens,flat
-  LOGICAL :: ok_flux_surf=.FALSE.
+  LOGICAL :: ok_flux_surf ! initialized during first_call below
   COMMON /flux_arp/fsens,flat,ok_flux_surf
 !****************************************************************************************
@@ -482 +482 @@
        first_call=.FALSE.
       
+       ! Initialize ok_flux_surf (for 1D model)
+       ok_flux_surf=.FALSE.
+       
        ! Initilize debug IO
        IF (debugindex .AND. mpi_size==1) THEN