Changeset 1751 for trunk/MESOSCALE/LMD_MM_MARS/SRC

Timestamp:

Jul 24, 2017, 6:00:59 PM (7 years ago)

Author:

mlefevre

Message:

Update : implementation of the dynamics heating rate for temperature tendency computation

File:

• trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/phys/dynphy_wrf_prescribed_void_lmd_new/callphysiq_mod.F (modified) (1 diff)

trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/phys/dynphy_wrf_prescribed_void_lmd_new/callphysiq_mod.F

@@ -55 +55 @@
   REAL :: hr_sw(llm)
   REAL :: hr_lw(llm)
+  REAL :: hr_dyn(llm)
 
   open(17,file='prescribed_sw.txt',form='formatted',status='old')
   open(18,file='prescribed_lw.txt',form='formatted',status='old')
+  open(19,file='prescribed_dyn.txt',form='formatted',status='old')
   rewind(17)
   rewind(18)
+  rewind(19)
   DO k=1,llm
     read(17,*) hr_sw(k)
     read(18,*) hr_lw(k)
+    read(19,*) hr_dyn(k)
   ENDDO
   close(17)
   close(18)
+  close(19)
 
-     
   DO i=1,klon
-    zdtfi_omp(i,:)=hr_sw(:)+hr_lw(:)
+    zdtfi_omp(i,:)=hr_sw(:)+hr_lw(:)+hr_dyn(:)
   ENDDO
+
 
 END SUBROUTINE call_physiq