Changeset 2220 for LMDZ5/branches/testing/libf/phylmd/radlwsw_m.F90

Timestamp:

Mar 3, 2015, 2:41:13 PM (9 years ago)

Author:

Laurent Fairhead

Message:

Merged trunk changes -r2186:2216 into testing branch

Location:

LMDZ5/branches/testing

Files:

• . (modified) (1 prop)
• libf/phylmd/radlwsw_m.F90 (modified) (3 diffs)

LMDZ5/branches/testing/libf/phylmd/radlwsw_m.F90

@@ -765 +765 @@
 ! RII0 = RIP0M15 ! =rip0m if Morcrette non-each time step call.
          RII0=solaire/zdist/zdist
-        print*,'+++ radlwsw: solaire ,RII0',solaire,RII0
+!print*,'+++ radlwsw: solaire ,RII0',solaire,RII0
 !  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 ! Ancien appel a RECMWF (celui du cy25)
@@ -819 +819 @@
          ok_ade, ok_aie, flag_aerosol,flag_aerosol_strat) ! flags aerosols
             
-         print *,'RADLWSW: apres RECMWF'
+!        print *,'RADLWSW: apres RECMWF'
       if(lldebug) then
         CALL writefield_phy('zemtd_i',ZEMTD_i,klev+1)
@@ -954 +954 @@
          zsollwdown(i)= ZFLDN(i,1)
       ENDDO
-      print*,'OK2'
+!     print*,'OK2'
 
 ! extrait de SW_AR4