Changeset 848 for trunk/LMDZ.GENERIC/libf

Timestamp:

Nov 18, 2012, 7:35:44 PM (12 years ago)

Author:

aslmd

Message:

LMDZ.GENERIC. Corrected makegcm_ifort to cope with ciclad and gnome specifities. Corrected an out-of-bounds in calc_rayleigh when using too few spectral bands. Also some files have been moved to LMDZ.UNIVERSAL hence are now deleted from LMDZ.GENERIC.

Location:

trunk/LMDZ.GENERIC/libf/phystd

Files:

• calc_rayleigh.F90 (modified) (1 diff)
• for_lmdz5 (deleted)

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

@@ -144 +144 @@
       end do
 
-      print*,'At 1 atm and lambda = ',WAVEV(L_NSPECTV-6),' um'
-      print*,'tau_R = ',TAURAY(L_NSPECTV-6)*1013.25
-      print*,'sig_R = ',TAURAY(L_NSPECTV-6)*g*mugaz*1.67e-27*100, &
-             'cm^2 molecule^-1'
+      IF (L_NSPECTV > 6) THEN
+        print*,'At 1 atm and lambda = ',WAVEV(L_NSPECTV-6),' um'
+        print*,'tau_R = ',TAURAY(L_NSPECTV-6)*1013.25
+        print*,'sig_R = ',TAURAY(L_NSPECTV-6)*g*mugaz*1.67e-27*100, &
+               'cm^2 molecule^-1'
+      ENDIF
 
     end subroutine calc_rayleigh