Changeset 1318 for trunk/LMDZ.GENERIC

Timestamp:

Jul 29, 2014, 2:39:56 PM (10 years ago)

Author:

aslmd

Message:

LMDZ.GENERIC. Two fixes for 1D version. First a conflict between comvert.h and planete_mod.F for ap bp preff (this one should be given a closer look, this redundancy is weird). Secondly output frequency was hardcoded to 1 (instead of ecritphy) in r1216.

Location:

trunk/LMDZ.GENERIC/libf/phystd

Files:

• rcm1d.F (modified) (1 diff)
• writediagfi.F (modified) (1 diff)

trunk/LMDZ.GENERIC/libf/phystd/rcm1d.F

@@ -16 +16 @@
       use comgeomphy, only: initcomgeomphy
       use slab_ice_h, only: noceanmx
-      use planete_mod
+      use planete_mod, only: apoastr,periastr,year_day,peri_day,
+     &         obliquit,nres,z0,lmixmin,emin_turb,coefvis,coefir,
+     &         timeperi,e_elips,p_elips
 
       implicit none

trunk/LMDZ.GENERIC/libf/phystd/writediagfi.F

@@ -236 +236 @@
 
       if (ngrid.eq.1) then
-        ! in testphys1d, for the 1d version of the GCM, iphysiq and irythme
-        ! are undefined; so set them to 1
+        ! in testphys1d, for the 1d version of the GCM, iphysiq 
+        ! should be most likely 1 (because no dyn!)
         iphysiq=1 
-        irythme=1
         ! NB: 
       endif