Changeset 5282 for LMDZ6/trunk/libf/dyn3d_common/advn.F90
- Timestamp:
- Oct 28, 2024, 1:11:48 PM (6 hours ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/dyn3d_common/advn.F90
r5281 r5282 15 15 ! 16 16 ! -------------------------------------------------------------------- 17 USE iniprint_mod_h 17 18 USE comgeom_mod_h 18 19 USE dimensions_mod, ONLY: iim, jjm, llm, ndm … … 23 24 24 25 25 include "iniprint.h"26 26 27 27 ! … … 147 147 ! 148 148 ! -------------------------------------------------------------------- 149 USE iniprint_mod_h 149 150 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 150 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &151 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 151 152 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 152 153 IMPLICIT NONE 153 154 ! 154 155 156 INCLUDE "iniprint.h"157 155 ! 158 156 ! … … 268 266 ! -------------------------------------------------------------------- 269 267 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 270 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &268 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 271 269 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 270 USE iniprint_mod_h 272 271 IMPLICIT NONE 273 ! 274 275 276 INCLUDE "iniprint.h" 272 277 273 ! 278 274 ! … … 367 363 ! -------------------------------------------------------------------- 368 364 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 369 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &365 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 370 366 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 367 USE iniprint_mod_h 371 368 IMPLICIT NONE 372 !373 374 375 INCLUDE "iniprint.h"376 369 ! 377 370 ! … … 492 485 ! -------------------------------------------------------------------- 493 486 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 494 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &487 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 495 488 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 489 USE iniprint_mod_h 496 490 IMPLICIT NONE 497 491 ! 498 492 499 493 500 include "iniprint.h"501 494 ! 502 495 ! … … 759 752 ! 760 753 ! -------------------------------------------------------------------- 754 USE iniprint_mod_h 761 755 USE comgeom_mod_h 762 756 USE dimensions_mod, ONLY: iim, jjm, llm, ndm … … 767 761 768 762 769 INCLUDE "iniprint.h"770 763 ! 771 764 ! … … 893 886 ! 894 887 ! -------------------------------------------------------------------- 888 USE iniprint_mod_h 895 889 USE comgeom_mod_h 896 890 USE dimensions_mod, ONLY: iim, jjm, llm, ndm … … 901 895 902 896 903 INCLUDE "iniprint.h"904 897 ! 905 898 !
Note: See TracChangeset
for help on using the changeset viewer.