Changeset 5285 for LMDZ6/trunk/libf/dyn3dmem/guide_loc_mod.f90
- Timestamp:
- Oct 28, 2024, 2:33:29 PM (3 days ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/dyn3dmem/guide_loc_mod.f90
r5281 r5285 19 19 USE pres2lev_mod, only: pres2lev 20 20 21 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 22 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 21 USE paramet_mod_h 23 22 IMPLICIT NONE 24 23 … … 373 372 374 373 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 375 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 376 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 374 USE paramet_mod_h 377 375 IMPLICIT NONE 378 376 … … 736 734 737 735 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 738 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 739 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 736 USE paramet_mod_h 740 737 IMPLICIT NONE 741 738 … … 762 759 763 760 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 764 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 765 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 761 USE paramet_mod_h 766 762 IMPLICIT NONE 767 763 … … 791 787 792 788 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 793 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 794 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 789 USE paramet_mod_h 795 790 IMPLICIT NONE 796 791 … … 866 861 867 862 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 868 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 869 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 863 USE paramet_mod_h 870 864 IMPLICIT NONE 871 865 … … 941 935 USE comvert_mod, ONLY: preff, pressure_exner, bp, ap, disvert_type 942 936 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 943 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 944 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 937 USE paramet_mod_h 945 938 IMPLICIT NONE 946 939 … … 1431 1424 1432 1425 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 1433 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 1434 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 1426 USE paramet_mod_h 1435 1427 USE comgeom2_mod_h 1436 1428 implicit none … … 1599 1591 USE netcdf, ONLY: nf90_put_var 1600 1592 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 1601 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 1602 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 1593 USE paramet_mod_h 1603 1594 IMPLICIT NONE 1604 1595 … … 1919 1910 USE netcdf, ONLY: nf90_put_var 1920 1911 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 1921 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 1922 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 1912 USE paramet_mod_h 1923 1913 IMPLICIT NONE 1924 1914 … … 2200 2190 2201 2191 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 2202 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 2203 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 2192 USE paramet_mod_h 2204 2193 USE comgeom2_mod_h 2205 2194 IMPLICIT NONE … … 2425 2414 use mod_hallo 2426 2415 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 2427 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 2428 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 2416 USE paramet_mod_h 2429 2417 implicit none 2430 2418 … … 2458 2446 subroutine dumpall 2459 2447 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 2460 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 2461 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 2448 USE paramet_mod_h 2462 2449 USE comgeom_mod_h 2463 2450 implicit none
Note: See TracChangeset
for help on using the changeset viewer.