Changeset 1560

Timestamp:

May 12, 2016, 2:39:23 PM (9 years ago)

Author:

emillour

Message:

Mars GCM:

• Fix in wstats: use "def_var_stats" and not "def_var" (intended for writediagfi) or else outputs are always single precision.

EM

Location:

trunk/LMDZ.MARS

Files:

• README (modified) (1 diff)
• libf/phymars/wstats.F90 (modified) (2 diffs)

trunk/LMDZ.MARS/README

@@ -2293 +2293 @@
 - Bug fix in testphys1d, enforce iphysiq=1 after conf_phys (where its 
   value might be modified).
+
+== 12/05/2016 == EM
+- Fix in wstats: use "def_var_stats" and not "def_var" (intended for
+  writediagfi) or else outputs are always single precision.
+

trunk/LMDZ.MARS/libf/phymars/wstats.F90

@@ -173 +173 @@
    write (*,*) "STATS: creation de ",nom
    namebis=trim(nom)
-   call def_var(nid,namebis,titre,unite,nbdim,id,meanid,ierr)
+   call def_var_stats(nid,namebis,titre,unite,nbdim,id,meanid,ierr)
    if (dim.eq.3) then
      call inivar(nid,meanid,size(px3_glop,1),dim,indx,px3_glop,ierr)
@@ -180 +180 @@
    endif
    namebis=trim(nom)//"_sd"
-   call def_var(nid,namebis,trim(titre)//" total standard deviation over the season",unite,nbdim,id,sdid,ierr)
+   call def_var_stats(nid,namebis,trim(titre)//" total standard deviation over the season",unite,nbdim,id,sdid,ierr)
    if (dim.eq.3) then
      call inivar(nid,sdid,size(px3_glop,1),dim,indx,px3_glop,ierr)