Changeset 2912 for trunk/ICOSA_LMDZ


Ignore:
Timestamp:
Mar 12, 2023, 6:15:33 PM (22 months ago)
Author:
emillour
Message:

Dynamico interface with the PCM physics:

  • update disvert_icosa_lmdz.f90 to follow the update of disvert_plugin in dynamico
  • enforce using fcm1 when compiling dynamico via the make_icosa_lmdz script
  • add an illustrative example script to compile on Irene-Rome

EM

Location:
trunk/ICOSA_LMDZ
Files:
1 added
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/ICOSA_LMDZ/make_icosa_lmdz

    r2796 r2912  
    227227if [[ -d ../ICOSAGCM ]] ; then
    228228    cd ../ICOSAGCM
    229     ./make_icosa -$compil_mode -parallel $parallel -external_ioipsl -with_xios -arch $arch -arch_path $arch_path -job $job $full_flag || exit 1
     229    # for now compile using fcm1
     230    ./make_icosa -with_fcm1 -$compil_mode -parallel $parallel -external_ioipsl -with_xios -arch $arch -arch_path $arch_path -job $job $full_flag || exit 1
    230231    cd -
    231232else
  • trunk/ICOSA_LMDZ/src/disvert_icosa_lmdz.f90

    r2452 r2912  
    55contains
    66
    7   SUBROUTINE disvert_icosa_lmdz(ap,bp,presnivs)
     7  SUBROUTINE disvert_icosa_lmdz(ap,bp,presnivs,presinter)
    88  ! Routine to compute ap(),bp() and presnivs() in the same way as done
    99  ! in LMDZ for planets (see LMDZ.COMMON/libf/dyn3d_common/disvert_noterre.F)
     
    2323  REAL(rstd),INTENT(OUT) :: bp(:)
    2424  REAL(rstd),INTENT(OUT) :: presnivs(:)
     25  REAL(rstd),INTENT(OUT) :: presinter(:)
    2526
    2627  INTEGER :: unit
     
    111112      presnivs(l)=0.5*(ap(l)+bp(l)*preff+ap(l+1)+bp(l+1)*preff)
    112113    ENDDO
     114    ! build presinter(), approximative inter-layer pressures
     115    DO l=1,llm+1
     116      presinter(l)=ap(l)+bp(l)*preff
     117    ENDDO
    113118   
    114119    ! tell the world about it
Note: See TracChangeset for help on using the changeset viewer.