Changeset 3606 for LMDZ5/branches/IPSLCM5A2.1/libf/phylmd

Timestamp:

Nov 28, 2019, 5:07:28 PM (5 years ago)

Author:

acozic

Message:

several commit for branche IPSLCM5A2

• comment a lot of write on infotrac
• add initialization for variable pbl_tke (it's use before to be calculed)
• comment condition to call aerosol_meteo_calc because this routine is now call by all inca version
• add a condition on output write of od550aer, o865aer, ...loaddust (there are calculed by lmdz only when we work in new physic)

Location:

LMDZ5/branches/IPSLCM5A2.1/libf/phylmd

Files:

• phys_output_write_mod.F90 (modified) (1 diff)
• phys_state_var_mod.F90 (modified) (1 diff)
• physiq_mod.F90 (modified) (1 diff)

LMDZ5/branches/IPSLCM5A2.1/libf/phylmd/phys_output_write_mod.F90

@@ -1009 +1009 @@
 !--OLIVIER
 !This is warranted by treating INCA aerosols as offline aerosols
-!       IF (new_aod .and. (.not. aerosol_couple)) THEN
-       IF (new_aod) THEN
+       IF (new_aod .and. (.not. aerosol_couple)) THEN
+!       IF (new_aod) THEN
           IF (flag_aerosol.GT.0) THEN
              CALL histwrite_phy(o_od550aer, od550aer)

LMDZ5/branches/IPSLCM5A2.1/libf/phylmd/phys_state_var_mod.F90

@@ -455 +455 @@
       ALLOCATE(ratqs(klon,klev))
       ALLOCATE(pbl_tke(klon,klev+1,nbsrf+1))
+      pbl_tke(:,:,:) = 0. 
 !nrlmd<
       ALLOCATE(delta_tsurf(klon,nbsrf))

LMDZ5/branches/IPSLCM5A2.1/libf/phylmd/physiq_mod.F90

@@ -3359 +3359 @@
 
        call chemtime(itap+itau_phy-1, date0, dtime, itap)
-       IF (config_inca == 'aero' .OR. config_inca == 'aeNP') THEN
-          CALL AEROSOL_METEO_CALC( &
-               calday,pdtphys,pplay,paprs,t,pmflxr,pmflxs, &
-               prfl,psfl,pctsrf,cell_area, &
-               latitude_deg,longitude_deg,u10m,v10m)
-       END IF
+       CALL AEROSOL_METEO_CALC( &
+            calday,pdtphys,pplay,paprs,t,pmflxr,pmflxs, &
+            prfl,psfl,pctsrf,cell_area, &
+           latitude_deg,longitude_deg,u10m,v10m)
 
        zxsnow_dummy(:) = 0.0