Changeset 1644 for trunk/LMDZ.TITAN/libf/dynphy_lonlat/phytitan/callphysiq_mod.F90

Timestamp:

Dec 15, 2016, 4:09:55 PM (8 years ago)

Author:

jvatant

Message:

Copy the new LMDZ.TITAN from LMDZ.GENERIC
+ compilation-needed modification (phystd->phytitan ...)
+ no changes on substance
+ deftank cleaned

Location:

trunk/LMDZ.TITAN

Files:

• . (copied) (copied from trunk/LMDZ.GENERIC)
• libf/dynphy_lonlat/phytitan (copied) (copied from trunk/LMDZ.GENERIC/libf/dynphy_lonlat/phystd)
• libf/dynphy_lonlat/phytitan/callphysiq_mod.F90 (modified) (1 diff)

trunk/LMDZ.TITAN/libf/dynphy_lonlat/phytitan/callphysiq_mod.F90

@@ -59 +59 @@
 ! Sanity check on physics package type
   IF (firstcall) THEN
-    IF (planet_type.ne."generic") THEN
+    IF (planet_type.ne."titan") THEN
       CALL abort_gcm(modname,"wrong planet_type for this physics package",1)
     ENDIF