Changeset 470 for trunk/LMDZ.GENERIC/libf/phystd/physiq.F90

Timestamp:

Dec 13, 2011, 12:15:50 PM (13 years ago)

Author:

aslmd

Message:

LMDZ.GENERIC

12/12/2011 == AS

• Use of allocatable arrays to set corrk stuff through reading *.dat files, without the need to change radinc_h manually.
• Allocation is done in sugas_corrk which is within firstcall loop in callcorrk.
• Note that N_LGAUSS is still a parameter. It is not supposed to change much.
• Compiles fine. Tested with debugging options through pgdbg. Runs fine. Exact same results in Early Mars test case.

Modified files:
M 469 libf/phystd/physiq.F90
M 469 libf/phystd/sugas_corrk.F90
M 469 libf/phystd/callcorrk.F90
M 469 libf/phystd/radinc_h.F90
M 469 libf/phystd/radcommon_h.F90

File:

• trunk/LMDZ.GENERIC/libf/phystd/physiq.F90 (modified) (1 diff)

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

@@ -724 +724 @@
               if(CLFvarying)then
 
+               !!! THIS IS NOT A VERY GOOD STRATEGY HERE (everything should be in callcorrk)
+               !!! ---> PROBLEMS WITH ALLOCATED ARRAYS 
+               !!! (temporary solution in callcorrk: do not deallocate if CLFvarying ...)
+
                  clearsky=.true.
                  call callcorrk(ngrid,nlayer,pq,nq,qsurf,           &