Changeset 952 for trunk/LMDZ.GENERIC/libf/phystd/callcorrk.F90

Timestamp:

May 1, 2013, 2:01:43 AM (12 years ago)

Author:

aslmd

Message:

LMDZ.GENERIC. added the possibility to remove surface (nosurf option) and to add an internal heat flux (intheat value, default is 0.)

File:

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

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

@@ -450 +450 @@
          albv=albedo(ig)        ! shortwave 
 
-      if(noradsurf.and.(albv.gt.0.0))then
+      if(nosurf.and.(albv.gt.0.0))then
          print*,'For open lower boundary in callcorrk must'
          print*,'have surface albedo set to zero!'