Changeset 1009 for LMDZ4/trunk/libf/phylmd/pbl_surface_mod.F90

Timestamp:

Oct 7, 2008, 11:44:36 AM (16 years ago)

Author:

lsce

Message:

• Changed variable name OCEAN to type_ocean in physiq.def
• Removed test of coherence between CPP_VEGET and ok_veget (later to be readded in surf_land_orchdiee)

JG

File:

• LMDZ4/trunk/libf/phylmd/pbl_surface_mod.F90 (modified) (1 diff)

LMDZ4/trunk/libf/phylmd/pbl_surface_mod.F90

@@ -157 +157 @@
       CALL abort_gcm(modname,abort_message,1)
     ENDIF
-
-!****************************************************************************************
-! Test of coherence between variable ok_veget and cpp key CPP_VEGET
-!
-!****************************************************************************************
-    IF (ok_veget) THEN
-#ifndef CPP_VEGET
-       abort_message='Pb de coherence: ok_veget = .true. mais CPP_VEGET = .false.'
-       CALL abort_gcm(modname,abort_message,1)
-#endif
-    ENDIF
-
 
   END SUBROUTINE pbl_surface_init