Changeset 844 for trunk/LMDZ.GENERIC_2.0/libf/phygeneric/iniphysiq.F

Timestamp:

Nov 18, 2012, 2:03:20 PM (12 years ago)

Author:

aslmd

Message:

LMDZ.GENERIC. Added a new folder for the interface with LMDZ.COMMON and LMDZ5

Location:

trunk/LMDZ.GENERIC_2.0

Files:

• . (added)
• libf (added)
• libf/phygeneric (added)
• libf/phygeneric/iniphysiq.F (copied) (copied from trunk/LMDZ.GENERIC/libf/phystd/for_lmdz5/iniphysiq.F) (3 diffs)

trunk/LMDZ.GENERIC_2.0/libf/phygeneric/iniphysiq.F

@@ -8 +8 @@
      $           pdayref,ptimestep,
      $           plat,plon,parea,pcu,pcv,
-     $           prad,pg,pr,pcpp)
+     $           prad,pg,pr,pcpp,iflag_phys)
       USE dimphy
       USE mod_grid_phy_lmdz
@@ -77 +77 @@
       INTEGER pdayref
       INTEGER :: ibegin,iend,offset
+      INTEGER,INTENT(IN) :: iflag_phys ! type of physics to be called
 
       INTEGER :: ngrid_sub
@@ -187 +188 @@
       !!print*, plat,plon,parea,prad,pg,pr,pcpp
 
-      RETURN
-9999  CONTINUE
-      abort_message ='Cette version demande les fichier rnatur.dat
-     & et surf.def'
-      CALL abort_gcm (modname,abort_message,1)
+!      RETURN
+!9999  CONTINUE
+!      abort_message ='Cette version demande les fichier rnatur.dat
+!     & et surf.def'
+!      CALL abort_gcm (modname,abort_message,1)
 
       END