Changeset 749 for trunk/LMDZ.GENERIC/libf

Timestamp:

Aug 1, 2012, 12:48:44 AM (12 years ago)

Author:

aslmd

Message:

GENERIC: Changed name of physiq to physiqg to allow for easy interfacing with latest LMDz dynamical core

File:

• trunk/LMDZ.GENERIC/libf/phystd/physiqg.F90 (moved) (moved from trunk/LMDZ.GENERIC/libf/phystd/physiq.F90) (4 diffs)

trunk/LMDZ.GENERIC/libf/phystd/physiqg.F90

@@ -1 @@
-      subroutine physiq(ngrid,nlayer,nq,   &
+      subroutine physiqg(ngrid,nlayer,nq,   &
                   firstcall,lastcall,      &
                   pday,ptime,ptimestep,    &
@@ -396 +396 @@
 !     included by RW for variable H2O particle sizes
       real,save :: reffrad(ngridmx,nlayermx,naerkind) ! aerosol effective radius (m)
-      real :: reffrad1(ngridmx,nlayermx,naerkind) ! for clearsky call to callcorrk
       real,save :: nueffrad(ngridmx,nlayermx,naerkind) ! aerosol effective radius variance
       real :: reffh2oliq(ngridmx,nlayermx) ! liquid water particles effective radius (m)
@@ -696 +695 @@
                       zdtlw1,zdtsw1,fluxsurf_lw1,fluxsurf_sw1,fluxtop_lw1, &
                       fluxabs_sw1,fluxtop_dn,OLR_nu1,OSR_nu1,              &
-                      reffrad1,tau_col1,cloudfrac,totcloudfrac,             &
+                      reffrad,tau_col1,cloudfrac,totcloudfrac,             &
                       clearsky,firstcall,lastcall)
                  clearsky = .false.  ! just in case.     
@@ -1758 +1757 @@
 
       return
-    end subroutine physiq
+    end subroutine physiqg