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

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)
• libf/dynphy_lonlat/phytitan/newstart.F (modified) (1 diff)
• libf/dynphy_lonlat/phytitan/start2archive.F (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

trunk/LMDZ.TITAN/libf/dynphy_lonlat/phytitan/newstart.F

@@ -187 +187 @@
                   ! make deliberate choice of these values elsewhere.
 
-      planet_type="generic"
+      planet_type="titan"
 
 ! initialize "serial/parallel" related stuff

trunk/LMDZ.TITAN/libf/dynphy_lonlat/phytitan/start2archive.F

@@ -145 +145 @@
       CALL defrun_new(99, .TRUE. )
 
-      planet_type="generic"
+      planet_type="titan"
 
 c=======================================================================