Changeset 1162 for trunk/LMDZ.GENERIC/libf

Timestamp:

Jan 21, 2014, 4:29:44 PM (11 years ago)

Author:

msylvestre

Message:

LMDZ.GENERIC/UNIVERSAL. in physiq.F90, I removed useless some useless lines of comments and test prints

File:

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

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

@@ -709 +709 @@
 
                call mucorr(ngrid,declin,lati,mu0,fract,10000.,rad)
-!               write(*,*) 'mu0 =', mu0
-!               write(*,*) 'hello, l 738'
                ! WARNING: this function appears not to work in 1D
 
@@ -1474 +1472 @@
       if(corrk)then
 
-         if(ISNAN(sum(fluxtop_dn))) then 
-            write(*,*) 'err fluxtop_dn'
-         else if(ISNAN(sum(area))) then
-            write(*,*) 'err area'
-         else if(ISNAN(totarea)) then
-            write(*,*) 'area is nan'
-         endif
-
          ISR = SUM(area(:)*fluxtop_dn(:))/totarea
          ASR = SUM(area(:)*fluxabs_sw(:))/totarea