Changeset 1012

Timestamp:

Oct 7, 2008, 7:44:32 PM (16 years ago)

Author:

lsce

Message:

• Error in another argument list.
• Added writing in double precision in case of NC_DOUBLE

JG

Location:

LMDZ4/trunk/libf/dyn3dpar

Files:

• etat0_netcdf.F (modified) (1 diff)
• limit_netcdf.F (modified) (1 diff)

LMDZ4/trunk/libf/dyn3dpar/etat0_netcdf.F

@@ -148 +148 @@
 !      CALL defrun_new(99,.TRUE.,clesphy0)
       CALL conf_gcm( 99, .TRUE. , clesphy0 )
-      call conf_phys( ok_veget, ok_journe, ok_mensuel, ok_instan,       &
-     &                 ok_hf,                                           &
+      call conf_phys(  ok_journe, ok_mensuel, ok_instan, ok_hf,         &
      &                 solarlong0,seuil_inversion,                      &
      &                 fact_cldcon, facttemps,ok_newmicro,iflag_radia,  &

LMDZ4/trunk/libf/dyn3dpar/limit_netcdf.F

@@ -1189 +1189 @@
       dims(2) = ntim
 c
+#ifdef NC_DOUBLE
+      ierr = NF_DEF_VAR (nid, "TEMPS", NF_DOUBLE, 1,ntim, id_tim)
+#else
       ierr = NF_DEF_VAR (nid, "TEMPS", NF_FLOAT, 1,ntim, id_tim)
+#endif
       ierr = NF_PUT_ATT_TEXT (nid, id_tim, "title", 17,
      .                        "Jour dans l annee")
       IF (newlmt) THEN
 c
+#ifdef NC_DOUBLE
+        ierr = NF_DEF_VAR (nid, "FOCE", NF_DOUBLE, 2,dims, id_FOCE)
+#else
         ierr = NF_DEF_VAR (nid, "FOCE", NF_FLOAT, 2,dims, id_FOCE)
+#endif
         ierr = NF_PUT_ATT_TEXT (nid, id_FOCE, "title", 14,
      .                      "Fraction ocean")
 c
+#ifdef NC_DOUBLE
+        ierr = NF_DEF_VAR (nid, "FSIC", NF_DOUBLE, 2,dims, id_FSIC)
+#else
         ierr = NF_DEF_VAR (nid, "FSIC", NF_FLOAT, 2,dims, id_FSIC)
+#endif
         ierr = NF_PUT_ATT_TEXT (nid, id_FSIC, "title", 21,
      .                      "Fraction glace de mer")
 c
+#ifdef NC_DOUBLE
+        ierr = NF_DEF_VAR (nid, "FTER", NF_DOUBLE, 2,dims, id_FTER)
+#else
         ierr = NF_DEF_VAR (nid, "FTER", NF_FLOAT, 2,dims, id_FTER)
+#endif
         ierr = NF_PUT_ATT_TEXT (nid, id_FTER, "title", 14,
      .                      "Fraction terre")
 c
+#ifdef NC_DOUBLE
+        ierr = NF_DEF_VAR (nid, "FLIC", NF_DOUBLE, 2,dims, id_FLIC)
+#else
         ierr = NF_DEF_VAR (nid, "FLIC", NF_FLOAT, 2,dims, id_FLIC)
+#endif
         ierr = NF_PUT_ATT_TEXT (nid, id_FLIC, "title", 17,
      .                      "Fraction land ice")
 c
       ELSE 
+#ifdef NC_DOUBLE
+        ierr = NF_DEF_VAR (nid, "NAT", NF_DOUBLE, 2,dims, id_NAT)
+#else
         ierr = NF_DEF_VAR (nid, "NAT", NF_FLOAT, 2,dims, id_NAT)
+#endif
         ierr = NF_PUT_ATT_TEXT (nid, id_NAT, "title", 23,
      .                      "Nature du sol (0,1,2,3)")
       ENDIF 
+#ifdef NC_DOUBLE
+      ierr = NF_DEF_VAR (nid, "SST", NF_DOUBLE, 2,dims, id_SST)
+#else
       ierr = NF_DEF_VAR (nid, "SST", NF_FLOAT, 2,dims, id_SST)
+#endif
       ierr = NF_PUT_ATT_TEXT (nid, id_SST, "title", 35,
      .                      "Temperature superficielle de la mer")
+#ifdef NC_DOUBLE
+      ierr = NF_DEF_VAR (nid, "BILS", NF_DOUBLE, 2,dims, id_BILS)
+#else
       ierr = NF_DEF_VAR (nid, "BILS", NF_FLOAT, 2,dims, id_BILS)
+#endif
       ierr = NF_PUT_ATT_TEXT (nid, id_BILS, "title", 32,
      .                        "Reference flux de chaleur au sol")
+#ifdef NC_DOUBLE
+      ierr = NF_DEF_VAR (nid, "ALB", NF_DOUBLE, 2,dims, id_ALB)
+#else
       ierr = NF_DEF_VAR (nid, "ALB", NF_FLOAT, 2,dims, id_ALB)
+#endif
       ierr = NF_PUT_ATT_TEXT (nid, id_ALB, "title", 19,
      .                        "Albedo a la surface")
+#ifdef NC_DOUBLE
+      ierr = NF_DEF_VAR (nid, "RUG", NF_DOUBLE, 2,dims, id_RUG)
+#else
       ierr = NF_DEF_VAR (nid, "RUG", NF_FLOAT, 2,dims, id_RUG)
+#endif
       ierr = NF_PUT_ATT_TEXT (nid, id_RUG, "title", 8,
      .                        "Rugosite")