Changeset 1398 for LMDZ4/trunk/libf/phylmd/cv3a_uncompress.F

Timestamp:

Jun 4, 2010, 6:56:18 PM (14 years ago)

Author:

musat

Message:

Last corrections for CMIP5:

• Add O3 at standard level files histmthNMC.nc
• Add positive attribute "down" for vertical axes for all output files
• Replace "inst" by "ave" for hist*NMC.nc files to have time_counter and bounds for time axis (Marie-Alice's hint)
• Correct units for vertical axes : mb instead of hPa
• Add mass flux at the bottom of clouds
• Comment non initialized variables (s_capCL, s_oliqCL, s_cteiCL, s_trmb1, s_trmb2, s_trmb3) for the output files
• Geopotential field phy850, phi700, phi500, etc are modified to "geopotential height and are called z850, z700, z500, etc
• Meaning of specific humidity outputs - ovapinit and ovap - were interchanged
• Fields albs, albslw become alb1, alb2 in output files
• Correct title for rugs_* fields
• Correct units for pbase and ptop are Pa (not mb)
• Correct ndayrain field

FH/JLD/JYG/MAF/IM

File:

• LMDZ4/trunk/libf/phylmd/cv3a_uncompress.F (modified) (5 diffs)

LMDZ4/trunk/libf/phylmd/cv3a_uncompress.F

@@ -1 +1 @@
       SUBROUTINE cv3a_uncompress(nloc,len,ncum,nd,ntra,idcum
      :         ,iflag,kbas,ktop
-     :         ,precip,sig,w0,ptop2
+     :         ,precip,cbmf,sig,w0,ptop2
      :         ,ft,fq,fu,fv,ftra
      :         ,Ma,mip,Vprecip,upwd,dnwd,dnwd0
@@ -10 +10 @@
      :         ,asupmaxmin
      o         ,iflag1,kbas1,ktop1
-     :         ,precip1,sig1,w01,ptop21
+     :         ,precip1,cbmf1,sig1,w01,ptop21
      :         ,ft1,fq1,fu1,fv1,ftra1
      :         ,Ma1,mip1,Vprecip1,upwd1,dnwd1,dnwd01
@@ -35 +35 @@
       integer idcum(nloc)
       integer iflag(nloc),kbas(nloc),ktop(nloc)
-      real precip(nloc)
+      real precip(nloc),cbmf(nloc)
       real sig(nloc,nd), w0(nloc,nd),ptop2(nloc)
       real ft(nloc,nd), fq(nloc,nd), fu(nloc,nd), fv(nloc,nd)
@@ -51 +51 @@
 c outputs:
       integer iflag1(len),kbas1(len),ktop1(len)
-      real precip1(len)
+      real precip1(len),cbmf1(len)
       real sig1(len,nd), w01(len,nd),ptop21(len)
       real ft1(len,nd), fq1(len,nd), fu1(len,nd), fv1(len,nd)
@@ -71 +71 @@
          ptop21(idcum(i))=ptop2(i)
          precip1(idcum(i))=precip(i)
+         cbmf1(idcum(i))=cbmf(i)
          iflag1(idcum(i))=iflag(i)
          kbas1(idcum(i))=kbas(i)