Changeset 1560 for trunk/LMDZ.MARS/libf

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

File:

• trunk/LMDZ.MARS/libf/phymars/wstats.F90 (modified) (2 diffs)

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)