Changeset 3000 for trunk/LMDZ.MARS/libf


Ignore:
Timestamp:
Jul 19, 2023, 11:55:56 AM (18 months ago)
Author:
jbclement
Message:

Mars PCM:
Some adaptations to make the 1D model run with XIOS and MPICH for use with 1D PEM.
JBC

Location:
trunk/LMDZ.MARS/libf/phymars
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.MARS/libf/phymars/dyn1d/testphys1d.F

    r2997 r3000  
    4343      use write_output_mod, only: write_output
    4444#ifdef CPP_XIOS
    45       use mod_const_mpi, only: init_const_mpi
     45      use mod_const_mpi, only: init_const_mpi, COMM_LMDZ
    4646      use parallel_lmdz, only: init_parallel
    4747#endif
    … …  
    358358
    359359      call init_physics_distribution(regular_lonlat,4,
    360      &                               1,1,1,nlayer,1)
     360     &                               1,1,1,nlayer,COMM_LMDZ)
    361361
    362362      if(.not. startfile_1D ) then
    … …  
    988988      call getin("write_prof",write_prof)
    989989      IF (write_prof) then
    990               DO iq = 1, nq
    991                 call writeprofile(nlayer,q(:,iq),noms(iq),iq,qsurf)
     990              DO iq = 1,nq
     991                call writeprofile(nlayer,q(:,iq),noms(iq),qsurf)
    992992              ENDDO
    993993      ENDIF
    994 
    995994
    996995c    ========================================================

  • trunk/LMDZ.MARS/libf/phymars/dyn1d/write_profile.F90

    r2981 r3000  
    1 SUBROUTINE writeprofile(nlev,data,name2,iq,qsurf)
     1SUBROUTINE writeprofile(nlev,data,name2,qsurf)
    22
    33
    … …  
    55
    66! arguments:
    7 INTEGER nlev,iq
     7INTEGER nlev
    88REAL data(nlev)
    99REAL qsurf
    … …  
    1414
    1515!write the data
    16 OPEN(iq,file='profile_out_'//trim(name2),form='formatted')
    17 write(iq,*) qsurf
     16OPEN(1,file='profile_out_'//trim(name2),form='formatted')
     17write(1,*) qsurf
    1818DO il=1,nlev
    19         write(iq,*) data(il)
     19    write(1,*) data(il)
    2020ENDDO
    21 CLOSE(iq)
     21CLOSE(1)
    2222RETURN
    2323END

  • trunk/LMDZ.MARS/libf/phymars/physiq_mod.F

    r2999 r3000  
    38303830        call write_output('zdqcloud_vap','cloud vap',
    38313831     &            'kg.m-2.s-1',zdqcloud(:,:,igcm_h2o_vap))
    3832         call write_output('zdqcloud','cloud ice',
     3832        call write_output('zdqcloud','cloud',
    38333833     &            'kg.m-2.s-1',zdqcloud(:,:,igcm_h2o_ice)
    38343834     &                          +zdqcloud(:,:,igcm_h2o_vap))
Note: See TracChangeset for help on using the changeset viewer.