Changeset 253 for trunk/LMDZ.GENERIC/libf/phystd/setspv.F90

Timestamp:

Aug 2, 2011, 11:13:07 AM (14 years ago)

Author:

emillour

Message:

Generic GCM

• Massive update to version 0.7

EM+RW

File:

• trunk/LMDZ.GENERIC/libf/phystd/setspv.F90 (modified) (2 diffs)

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

@@ -110 +110 @@
 
       write(*,*)'Interpolating stellar spectrum from the hires data...'
-      call ave_stelspec(startype,STELLAR)
+      call ave_stelspec(STELLAR)
 
 !     Sum the stellar flux, and write out the result.  
@@ -120 +120 @@
       write(6,'(" Stellar flux at 1 AU = ",f7.2," W m-2")') sum
       print*,' '
+
 
 !=======================================================================