Changeset 3528

Timestamp:

May 30, 2019, 4:13:37 PM (5 years ago)

Author:

oboucher

Message:

A little more cleaning with WRITEs

File:

• LMDZ6/trunk/libf/phylmd/StratAer/traccoag_mod.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/StratAer/traccoag_mod.F90

@@ -235 +235 @@
 !       SAI continuous emission o
         dlat_loc=180./RPI/2.*(boundslat(i,1)-boundslat(i,3)) ! dlat = half difference of boundary latitudes
-        WRITE(lunout,*) "IN traccoag, dlon=",dlon
-        WRITE(lunout,*) "IN traccoag, dlat=",dlat_loc
         IF  ( xlat(i).GE.xlat_sai-dlat_loc .AND. xlat(i).LT.xlat_sai+dlat_loc .AND. &
           &   xlon(i).GE.xlon_sai-dlon .AND. xlon(i).LT.xlon_sai+dlon ) THEN
 !
-          WRITE(lunout,*) 'coordinates of SAI point=',xlat(i), xlon(i), day_cur, mth_cur, year_cur
 !         compute altLMDz
           altLMDz(:)=0.0
@@ -303 +300 @@
             !     lat_min and lat_max
 
-    WRITE(lunout,*) 'IN traccoag, dlon=',dlon
     DO i=1,klon
 !       SAI scenario with continuous emission