Changeset 1129 for trunk


Ignore:
Timestamp:
Dec 19, 2013, 10:39:40 AM (11 years ago)
Author:
slebonnois
Message:

SL: Titan and Venus forgotten in the call to physiq.....

Location:
trunk/LMDZ.COMMON/libf
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.COMMON/libf/dyn3d/calfis.F

    r1126 r1129  
    773773     .             tracerdyn)    ! tracerdyn (somewhat obsolete)
    774774
     775      else if ((planet_type=="titan").or.(planet_type=="venus")) then
     776
     777         CALL physiq (ngridmx,
     778     .             llm,
     779     .             nqtot,
     780     .             debut_split,
     781     .             lafin_split,
     782     .             jD_cur,
     783     .             jH_cur_split,
     784     .             zdt_split,
     785     .             zplev,
     786     .             zplay,
     787     .             zpk,
     788     .             zphi,
     789     .             zphis,
     790     .             presnivs,
     791     .             zufi,
     792     .             zvfi,
     793     .             ztfi,
     794     .             zqfi,
     795     .             flxwfi,
     796     .             zdufi,
     797     .             zdvfi,
     798     .             zdtfi,
     799     .             zdqfi,
     800     .             zdpsrf)
     801
    775802      else ! unknown "planet_type"
    776803

  • trunk/LMDZ.COMMON/libf/dyn3dpar/calfis_p.F

    r1126 r1129  
    980980     .             tracerdyn)    ! tracerdyn (somewhat obsolete)
    981981
     982      else if ((planet_type=="titan").or.(planet_type=="venus")) then
     983
     984        CALL physiq (klon,
     985     .             llm,
     986     .             nqtot,
     987     .             debut_split,
     988     .             lafin_split,
     989     .             jD_cur,
     990     .             jH_cur_split,
     991     .             zdt_split,
     992     .             zplev_omp,
     993     .             zplay_omp,
     994     .             zpk_omp,
     995     .             zphi_omp,
     996     .             zphis_omp,
     997     .             presnivs_omp,
     998     .             zufi_omp,
     999     .             zvfi_omp,
     1000     .             ztfi_omp,
     1001     .             zqfi_omp,
     1002     .             flxwfi_omp,
     1003     .             zdufi_omp,
     1004     .             zdvfi_omp,
     1005     .             zdtfi_omp,
     1006     .             zdqfi_omp,
     1007     .             zdpsrf_omp)
     1008
    9821009      else ! unknown "planet_type"
    9831010
Note: See TracChangeset for help on using the changeset viewer.