Changeset 1565 for trunk/LMDZ.GENERIC/libf/phystd

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

File:

• trunk/LMDZ.GENERIC/libf/phystd/wstats.F90 (modified) (2 diffs)

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)