Changeset 5159 for LMDZ6/branches/Amaury_dev/libf/dyn3dmem/dteta1_loc.f90
- Timestamp:
- Aug 2, 2024, 9:58:25 PM (7 weeks ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/Amaury_dev/libf/dyn3dmem/dteta1_loc.f90
r5158 r5159 3 3 USE write_field_p 4 4 USE lmdz_filtreg_p 5 USE lmdz_dimensions, ONLY: iim, jjm, llm, ndm 6 USE lmdz_paramet 5 7 IMPLICIT NONE 6 8 7 9 !======================================================================= 8 ! 10 9 11 ! Auteur: P. Le Van 10 12 ! ------- 11 13 ! Modif F.Forget 03/94 (on retire q et dq pour construire dteta1) 12 ! 14 13 15 ! ******************************************************************** 14 16 ! ... calcul du terme de convergence horizontale du flux d'enthalpie … … 17 19 ! .. teta,pbaru et pbarv sont des arguments d'entree pour le s-pg .... 18 20 ! dteta sont des arguments de sortie pour le s-pg .... 19 ! 21 20 22 !======================================================================= 21 23 22 24 23 INCLUDE "dimensions.h" 24 INCLUDE "paramet.h" 25 26 25 27 26 28 REAL :: teta( ijb_u:ije_u,llm ) … … 31 33 REAL :: hbyv( ijb_v:ije_v,llm ), hbxu( ijb_u:ije_u,llm ) 32 34 33 ! 35 34 36 INTEGER :: ijb,ije,jjb,jje 35 37
Note: See TracChangeset
for help on using the changeset viewer.