Ignore:
Timestamp:
Sep 11, 2024, 6:03:07 PM (9 days ago)
Author:
abarral
Message:

Encapsulate files in modules

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Amaury_dev/libf/dyn3d/iniacademic.F90

    r5182 r5186  
    2828  USE lmdz_dimensions, ONLY: iim, jjm, llm, ndm
    2929  USE lmdz_paramet
     30  USE lmdz_check_isotopes, ONLY: check_isotopes_seq
     31
    3032  IMPLICIT NONE
    3133
    … …  
    340342      endif ! of if (planet_type=="earth")
    341343
    342       CALL check_isotopes_seq(q, 1, ip1jmp1, 'iniacademic_loc')
     344      CALL check_isotopes_seq(q, ip1jmp1, 'iniacademic_loc')
    343345
    344346      ! add random perturbation to temperature
Note: See TracChangeset for help on using the changeset viewer.