Ignore:
Timestamp:
Oct 26, 2016, 5:12:55 PM (8 years ago)
Author:
musat
Message:

Go back to the 2016' summer versions of cloudth.F90 for the
6.0.6. tuning.

Replace cloudth.F90 by a module containing two versions
of cloudth.F90 and cloudth_vert.F90 routines.

  • cloudth.F90 and cloudth_vert.F90 correspond to summer of 2016.
  • cloudth_v3.F90 and cloudth_vert_v3.F90 correspond to autumn 2016.

Note that the older versions are called if iflag_cloudth_vert=2
and the newer versions are called if iflag_cloudth_vert=3.

This can be usefull if we want to make sensitivity tests to the newer
versions without recompiling the code.

Location:
LMDZ5/branches/testing/libf/phylmd
Files:
1 added
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ5/branches/testing/libf/phylmd/fisrtilp.F90

    r2669 r2685  
    1515  USE icefrac_lsc_mod ! compute ice fraction (JBM 3/14)
    1616  USE print_control_mod, ONLY: prt_level, lunout
     17  USE cloudth_mod
    1718  IMPLICIT none
    1819  !======================================================================
     
    574575           if (iflag_cld_th>=5) then
    575576
    576               call cloudth(klon,klev,k,ztv, &
     577              if (iflag_cloudth_vert.EQ.2) then
     578               call cloudth(klon,klev,k,ztv, &
    577579                   zq,zqta,fraca, &
    578580                   qcloud,ctot,zpspsk,paprs,ztla,zthl, &
    579581                   ratqs,zqs,t)
    580 
     582              elseif (iflag_cloudth_vert.EQ.3) then
     583               call cloudth_v3(klon,klev,k,ztv, &
     584                   zq,zqta,fraca, &
     585                   qcloud,ctot,zpspsk,paprs,ztla,zthl, &
     586                   ratqs,zqs,t)
     587              endif
    581588              do i=1,klon
    582589                 rneb(i,k)=ctot(i,k)
Note: See TracChangeset for help on using the changeset viewer.