Changeset 1565

Timestamp:

May 20, 2016, 8:27:04 AM (9 years ago)

Author:

emillour

Message:

Generic GCM:

• Fix in wstats: use "def_var_stats" and not "def_var" (intended for writediagfi).

EM

Location:

trunk/LMDZ.GENERIC

Files:

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

trunk/LMDZ.GENERIC/README

@@ -1223 +1223 @@
   initializations (now done by inigeomphy in dynphy_lonlat) and
   mosre physics-package specific things (remain in iniphysiq).
+
+== 20/05/2016 == EM
+- Fix in wstats: use "def_var_stats" and not "def_var" (intended for
+  writediagfi).

trunk/LMDZ.GENERIC/libf/phystd/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)