Changeset 1751 for trunk/MESOSCALE


Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed

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

    r1634 r1751  
    5555  REAL :: hr_sw(llm)
    5656  REAL :: hr_lw(llm)
     57  REAL :: hr_dyn(llm)
    5758
    5859  open(17,file='prescribed_sw.txt',form='formatted',status='old')
    5960  open(18,file='prescribed_lw.txt',form='formatted',status='old')
     61  open(19,file='prescribed_dyn.txt',form='formatted',status='old')
    6062  rewind(17)
    6163  rewind(18)
     64  rewind(19)
    6265  DO k=1,llm
    6366    read(17,*) hr_sw(k)
    6467    read(18,*) hr_lw(k)
     68    read(19,*) hr_dyn(k)
    6569  ENDDO
    6670  close(17)
    6771  close(18)
     72  close(19)
    6873
    69      
    7074  DO i=1,klon
    71     zdtfi_omp(i,:)=hr_sw(:)+hr_lw(:)
     75    zdtfi_omp(i,:)=hr_sw(:)+hr_lw(:)+hr_dyn(:)
    7276  ENDDO
     77
    7378
    7479END SUBROUTINE call_physiq
Note: See TracChangeset for help on using the changeset viewer.