Changeset 5272 for LMDZ6/trunk/libf/dynphy_lonlat/phylmd/limit_netcdf.F90
- Timestamp:
- Oct 24, 2024, 5:53:15 PM (42 hours ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/dynphy_lonlat/phylmd/limit_netcdf.F90
r5271 r5272 82 82 USE lmdz_cppkeys_wrapper, ONLY: nf90_format 83 83 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 84 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 85 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 84 86 IMPLICIT NONE 85 87 !------------------------------------------------------------------------------- … … 87 89 include "iniprint.h" 88 90 89 include "paramet.h" 91 90 92 REAL, DIMENSION(iip1,jjp1), INTENT(INOUT) :: masque ! land mask 91 93 REAL, DIMENSION(iip1,jjp1), INTENT(INOUT) :: phis ! ground geopotential … … 332 334 333 335 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 336 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 337 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 334 338 IMPLICIT NONE 335 339 336 include "paramet.h" 340 337 341 include "comgeom2.h" 338 342 !-----------------------------------------------------------------------------
Note: See TracChangeset
for help on using the changeset viewer.