Changeset 749

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

Location:

trunk/LMDZ.GENERIC

Files:

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

trunk/LMDZ.GENERIC/README

@@ -750 +750 @@
 - Bug fix in physiq : the size of OLR_nu is L_NSPECTI and not L_NSPECTV
 - A more robust aerosol_mod + iniaerosol : problems with ifort+parallel solved, while still OK with other compilers and seq runs.
+
+== 01/08/2012 == AS
+- Changed name of physiq to physiqg to allow for easy interfacing with latest LMDz dynamical core.

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