- Timestamp:
- Nov 1, 2024, 12:39:44 PM (3 weeks ago)
- Location:
- LMDZ6/trunk/libf
- Files:
-
- 7 edited
- 3 moved
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/acama_gwd_rando_m.f90
r5285 r5309 22 22 23 23 ! ONLINE: 24 USE yomcst_mod_h 24 USE yoegwd_mod_h 25 USE yomcst_mod_h 25 26 use dimphy, only: klon, klev 26 27 use assert_m, only: assert … … 33 34 ! include "dimphy.h" 34 35 !END DIFFERENCE 35 include "YOEGWD.h"36 36 37 37 ! 0. DECLARATIONS: -
LMDZ6/trunk/libf/phylmd/conf_phys_m.f90
r5305 r5309 24 24 alp_offset) 25 25 26 USE yomcst2_mod_h 26 USE yoegwd_mod_h 27 USE yomcst2_mod_h 27 28 USE compbl_mod_h 28 29 USE alpale_mod … … 45 46 USE nuage_params_mod_h 46 47 47 INCLUDE "YOEGWD.h"48 48 ! 49 49 ! Configuration de la "physique" de LMDZ a l'aide de la fonction -
LMDZ6/trunk/libf/phylmd/flott_gwd_rando_m.f90
r5285 r5309 25 25 USE ioipsl_getin_p_mod, ONLY : getin_p 26 26 USE vertical_layers_mod, ONLY : presnivs 27 USE yoegwd_mod_h 27 28 CHARACTER (LEN=20) :: modname='flott_gwd_rando' 28 29 CHARACTER (LEN=80) :: abort_message 29 30 30 31 31 ! OFFLINE: … … 33 33 ! include "dimphy.h" 34 34 ! END OF DIFFERENCE ONLINE-OFFLINE 35 include "YOEGWD.h"36 35 37 36 ! 0. DECLARATIONS: -
LMDZ6/trunk/libf/phylmd/freinage.f90
r5305 r5309 6 6 7 7 !ONLINE: 8 USE dimpft_mod_h 8 USE yoegwd_mod_h 9 USE dimpft_mod_h 9 10 USE compbl_mod_h 10 11 USE clesphys_mod_h … … 18 19 19 20 20 include "YOEGWD.h"21 21 !FC 22 22 -
LMDZ6/trunk/libf/phylmd/hines_gwd.f90
r5285 r5309 13 13 14 14 15 USE dimphy 15 USE yoegwd_mod_h 16 USE dimphy 16 17 USE yomcst_mod_h 17 18 IMPLICIT NONE 18 19 19 include "YOEGWD.h"20 20 21 21 -
LMDZ6/trunk/libf/phylmd/inlandsis/sisvat_weq_mod.f90
r5308 r5309 1 MODULE sisvat_weq_mod 2 IMPLICIT NONE; PRIVATE 3 PUBLIC sisvat_weq 4 5 LOGICAL :: logWEq 6 7 CONTAINS 8 9 SUBROUTINE SISVAT_wEq(labWEq, istart) 10 11 ! +------------------------------------------------------------------------+ 12 ! | MAR SISVAT_wEq 22-09-2001 MAR | 13 ! | SubRoutine SISVAT_wEq computes the Snow/Ice Water Equivalent | 14 ! | | 15 ! | | 16 ! | Preprocessing Option: SISVAT IO (not always a standard preprocess.) | 17 ! | ^^^^^^^^^^^^^^^^^^^^^ ^^^^^^^^^ | 18 ! | FILE | CONTENT | 19 ! | ~~~~~~~~~~~~~~~~~~~~~+~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ | 20 ! | # SISVAT_wEq.ve | #ve: OUTPUT/Verification: Snow/Ice Water Eqv. | 21 ! | | unit 45, SubRoutine SISVAT_wEq **ONLY** | 22 ! +------------------------------------------------------------------------+ 23 24 ! +--Global Variables 25 ! + ================ 26 USE VARphy 27 USE VAR_SV 28 USE VARxSV 29 30 IMPLICIT NONE 31 32 CHARACTER(LEN = 6) :: labWEq 33 INTEGER :: istart 34 35 ! +--Local Variables 36 ! + ================ 37 38 INTEGER :: ikl, isn 39 REAL :: SnoWEQ, IceWEQ 1 40 2 41 3 subroutine SISVAT_wEq( labWEq ,istart) 42 ! +--Switch Initialization 43 ! + ===================== 4 44 5 ! +------------------------------------------------------------------------+ 6 ! | MAR SISVAT_wEq 22-09-2001 MAR | 7 ! | SubRoutine SISVAT_wEq computes the Snow/Ice Water Equivalent | 8 ! | | 9 ! | | 10 ! | Preprocessing Option: SISVAT IO (not always a standard preprocess.) | 11 ! | ^^^^^^^^^^^^^^^^^^^^^ ^^^^^^^^^ | 12 ! | FILE | CONTENT | 13 ! | ~~~~~~~~~~~~~~~~~~~~~+~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ | 14 ! | # SISVAT_wEq.ve | #ve: OUTPUT/Verification: Snow/Ice Water Eqv. | 15 ! | | unit 45, SubRoutine SISVAT_wEq **ONLY** | 16 ! +------------------------------------------------------------------------+ 45 IF (.NOT.logWEq) THEN 46 logWEq = .TRUE. 47 open(unit = 45, status = 'unknown', file = 'SISVAT_wEq.ve') 48 rewind 45 49 END IF 17 50 18 51 52 ! +--Snow Water Equivalent 53 ! + ===================== 54 55 ikl = 1 56 IF (isnoSV(ikl)>iiceSV(ikl)) THEN 57 SnoWEQ = 0. 58 DO isn = iiceSV(ikl) + 1, isnoSV(ikl) 59 SnoWEQ = SnoWEQ + ro__SV(ikl, isn) * dzsnSV(ikl, isn) 60 END DO 61 62 END IF 19 63 20 64 21 ! +--Global Variables 22 ! + ================ 65 ! +--Ice Water Equivalent 66 ! + ===================== 67 IF (iiceSV(1)>0) THEN 68 IceWEQ = 0. 69 DO isn = 1, iiceSV(ikl) 70 IceWEQ = IceWEQ + ro__SV(ikl, isn) * dzsnSV(ikl, isn) 71 END DO 23 72 24 use VARphy 25 use VAR_SV 26 use VARxSV 73 END IF 27 74 28 IMPLICIT NONE75 END SUBROUTINE sisvat_weq 29 76 30 31 32 character(len=6) :: labWEq 33 integer :: istart 34 35 logical :: logWEq 36 common/SISVAT_wEq_L/logWEq 37 38 39 ! +--Local Variables 40 ! + ================ 41 42 integer :: ikl ,isn 43 real :: SnoWEQ,IceWEQ 44 45 46 ! +--Switch Initialization 47 ! + ===================== 48 49 IF (.NOT.logWEq) THEN 50 logWEq = .true. 51 open(unit=45,status='unknown',file='SISVAT_wEq.ve') 52 rewind 45 53 END IF 54 55 56 ! +--Snow Water Equivalent 57 ! + ===================== 58 59 ikl = 1 60 IF (isnoSV(ikl).gt.iiceSV(ikl)) THEN 61 62 SnoWEQ = 0. 63 DO isn = iiceSV(ikl)+1 ,isnoSV(ikl) 64 SnoWEQ = SnoWEQ + ro__SV(ikl,isn) * dzsnSV(ikl,isn) 65 END DO 66 67 END IF 68 69 70 ! +--Ice Water Equivalent 71 ! + ===================== 72 73 IF (iiceSV(1).gt.0) THEN 74 75 IceWEQ = 0. 76 DO isn = 1 ,iiceSV(ikl) 77 IceWEQ = IceWEQ + ro__SV(ikl,isn) * dzsnSV(ikl,isn) 78 END DO 79 80 END IF 81 82 83 ! +--OUTPUT 84 ! + ====== 85 86 !! IF (istart.eq.1) THEN 87 !! write(45,45)dahost,i___SV(lwriSV(1)),j___SV(lwriSV(1)), 88 !! . n___SV(lwriSV(1)) 89 !! 45 format(a18,10('-'),'Pt.',3i4,60('-')) 90 !! END IF 91 92 !! write(45,450) labWEq,IceWEQ,iiceSV(ikl),SnoWEQ 93 !! . ,IceWEQ+SnoWEQ,isnoSV(ikl) 94 !! . ,drr_SV(ikl)*dt__SV 95 !! . ,dsn_SV(ikl)*dt__SV 96 !! . ,BufsSV(ikl) 97 !! 450 format(a6,3x,' I+S =',f11.4,'(',i2,') +',f11.4,' =', 98 !! . f11.4,'(',i2,')', 99 !! . ' drr =', f7.4, 100 !! . ' dsn =', f7.4, 101 !! . ' Buf =', f7.4) 102 103 return 104 end subroutine sisvat_weq 77 END MODULE sisvat_weq_mod -
LMDZ6/trunk/libf/phylmd/orografi.f90
r5285 r5309 122 122 USE yomcst_mod_h 123 123 USE dimphy 124 USE yoegwd_mod_h 124 125 IMPLICIT NONE 125 126 … … 168 169 169 170 ! f.lott + m. miller e.c.m.w.f. 22/11/94 170 ! -----------------------------------------------------------------------171 172 173 include "YOEGWD.h"174 171 ! ----------------------------------------------------------------------- 175 172 … … 397 394 398 395 ! ----------------------------------------------------------------------- 399 USE dimphy 396 USE yoegwd_mod_h 397 USE dimphy 400 398 USE yomcst_mod_h 401 399 IMPLICIT NONE … … 403 401 404 402 405 include "YOEGWD.h"406 403 407 404 ! ----------------------------------------------------------------------- … … 843 840 844 841 ! ----------------------------------------------------------------------- 845 USE dimphy 842 USE yoegwd_mod_h 843 USE dimphy 846 844 USE yomcst_mod_h 847 845 IMPLICIT NONE 848 846 849 include "YOEGWD.h"850 847 851 848 ! ----------------------------------------------------------------------- … … 969 966 ! PASSAGE OF THE NEW GWDRAG TO I.F.S. (F. LOTT, 22/11/93) 970 967 ! ----------------------------------------------------------------------- 971 USE dimphy 968 USE yoegwd_mod_h 969 USE dimphy 972 970 USE yomcst_mod_h 973 971 IMPLICIT NONE … … 977 975 978 976 979 include "YOEGWD.h"980 977 981 978 ! ----------------------------------------------------------------------- … … 1313 1310 ! F.LOTT LMD 22/11/95 1314 1311 1315 USE dimphy 1312 USE yoegwd_mod_h 1313 USE dimphy 1316 1314 USE yomcst_mod_h 1317 1315 IMPLICIT NONE … … 1319 1317 1320 1318 1321 include "YOEGWD.h"1322 1319 ! ----------------------------------------------------------------------- 1323 1320 … … 1562 1559 1563 1560 SUBROUTINE sugwd(nlon, nlev, paprs, pplay) 1564 USE dimphy 1561 USE yoegwd_mod_h 1562 USE dimphy 1565 1563 USE mod_phys_lmdz_para 1566 1564 USE mod_grid_phy_lmdz … … 1611 1609 1612 1610 ! ----------------------------------------------------------------- 1613 include "YOEGWD.h"1614 1611 ! ---------------------------------------------------------------- 1615 1612 -
LMDZ6/trunk/libf/phylmd/orografi_strato.f90
r5285 r5309 5 5 USE yomcst_mod_h 6 6 USE dimphy 7 USE yoegwd_mod_h 7 8 IMPLICIT NONE 8 9 ! ====================================================================== … … 63 64 64 65 ! ====================================================================== 65 include "YOEGWD.h"66 66 67 67 ! ARGUMENTS … … 161 161 USE yomcst_mod_h 162 162 USE dimphy 163 USE yoegwd_mod_h 163 164 IMPLICIT NONE 164 165 … … 237 238 238 239 ! f.lott + m. miller e.c.m.w.f. 22/11/94 239 ! -----------------------------------------------------------------------240 241 242 include "YOEGWD.h"243 244 240 ! ----------------------------------------------------------------------- 245 241 … … 543 539 544 540 ! ----------------------------------------------------------------------- 545 USE dimphy 541 USE yoegwd_mod_h 542 USE dimphy 546 543 USE yomcst_mod_h 547 544 IMPLICIT NONE … … 549 546 550 547 551 include "YOEGWD.h"552 548 553 549 ! ----------------------------------------------------------------------- … … 997 993 998 994 ! ----------------------------------------------------------------------- 999 USE dimphy 995 USE yoegwd_mod_h 996 USE dimphy 1000 997 USE yomcst_mod_h 1001 998 IMPLICIT NONE 1002 999 1003 1000 1004 include "YOEGWD.h"1005 1001 1006 1002 ! ----------------------------------------------------------------------- … … 1115 1111 ! nstra. 1116 1112 1117 USE dimphy 1113 USE yoegwd_mod_h 1114 USE dimphy 1118 1115 USE yomcst_mod_h 1119 1116 IMPLICIT NONE 1120 1117 1121 1118 1122 include "YOEGWD.h"1123 1119 1124 1120 ! ----------------------------------------------------------------------- … … 1295 1291 USE yomcst_mod_h 1296 1292 USE dimphy 1293 USE yoegwd_mod_h 1297 1294 IMPLICIT NONE 1298 1295 ! ====================================================================== … … 1354 1351 ! ====================================================================== 1355 1352 1356 include "YOEGWD.h"1357 1358 1353 ! ARGUMENTS 1359 1354 … … 1507 1502 ! F.LOTT LMD 22/11/95 1508 1503 1509 USE dimphy 1504 USE yoegwd_mod_h 1505 USE dimphy 1510 1506 USE yomcst_mod_h 1511 1507 IMPLICIT NONE … … 1513 1509 1514 1510 1515 include "YOEGWD.h"1516 1511 ! ----------------------------------------------------------------------- 1517 1512 … … 1820 1815 ! LAST: 99-07-09 (FRANCOIS LOTT,LMD) 1821 1816 ! ------------------------------------------------------------------ 1822 USE dimphy 1817 USE yoegwd_mod_h 1818 USE dimphy 1823 1819 USE mod_phys_lmdz_para 1824 1820 USE mod_grid_phy_lmdz … … 1827 1823 1828 1824 ! ----------------------------------------------------------------- 1829 include "YOEGWD.h"1830 1825 ! ---------------------------------------------------------------- 1831 1826 -
LMDZ6/trunk/libf/phylmd/yoegwd_mod_h.f90
r5308 r5309 1 ! 2 ! $Header$ 3 ! 4 ! ATTENTION : ce fichier include est compatible format fixe/format libre 5 ! veillez n'utiliser que des ! pour les commentaires 6 ! et bien positionner les & des lignes de continuation 7 ! (les placer en colonne 6 et en colonne 73) 8 ! ----------------------------------------------------------------- 9 !* *COMMON* *YOEGWD* - PARAMETERS FOR GRAVITY WAVE DRAG CALCULATIONS 10 ! ----------------------------------------------------------------- 11 ! 12 integer NKTOPG,NSTRA 13 real GFRCRIT,GKWAKE,GRCRIT,GVCRIT,GKDRAG,GKLIFT 14 real GHMAX,GRAHILO,GSIGCR,GSSEC,GTSEC,GVSEC 1 ! PARAMETERS FOR GRAVITY WAVE DRAG CALCULATIONS 2 MODULE yoegwd_mod_h 3 IMPLICIT NONE; PRIVATE 4 PUBLIC GFRCRIT, GKWAKE, GRCRIT, GVCRIT, GKDRAG, GKLIFT, GHMAX, GRAHILO, GSIGCR, NKTOPG, NSTRA, GSSEC, GTSEC, GVSEC, & 5 GWD_RANDO_RUWMAX, gwd_rando_sat, GWD_FRONT_RUWMAX, gwd_front_sat 15 6 16 REAL GWD_RANDO_RUWMAX 17 ! Maximum Eliassen-Palm flux at launch level, in "FLOTT_GWD_rando" 7 INTEGER NKTOPG, NSTRA 8 REAL GFRCRIT, GKWAKE, GRCRIT, GVCRIT, GKDRAG, GKLIFT 9 REAL GHMAX, GRAHILO, GSIGCR, GSSEC, GTSEC, GVSEC 18 10 19 REAL GWD_RANDO_SAT ! saturation parameter in "FLOTT_GWD_rando"20 ! S_c in equation (12) of Lott (JGR, vol 118, page 8897, 2013) 11 REAL GWD_RANDO_RUWMAX 12 ! Maximum Eliassen-Palm flux at launch level, in "FLOTT_GWD_rando" 21 13 22 REAL GWD_FRONT_RUWMAX,GWD_FRONT_SAT23 ! Same as GWD_RANDO params but for fronal GWs 14 REAL GWD_RANDO_SAT ! saturation parameter in "FLOTT_GWD_rando" 15 ! S_c in equation (12) of Lott (JGR, vol 118, page 8897, 2013) 24 16 17 REAL GWD_FRONT_RUWMAX, GWD_FRONT_SAT 18 ! Same as GWD_RANDO params but for fronal GWs 25 19 26 COMMON/YOEGWD/ GFRCRIT,GKWAKE,GRCRIT,GVCRIT,GKDRAG,GKLIFT, & 27 & GHMAX,GRAHILO,GSIGCR,NKTOPG,NSTRA,GSSEC,GTSEC,GVSEC, & 28 & GWD_RANDO_RUWMAX, gwd_rando_sat, & 29 & GWD_FRONT_RUWMAX, gwd_front_sat 30 31 save /YOEGWD/ 32 !$OMP THREADPRIVATE(/YOEGWD/) 20 !$OMP THREADPRIVATE(GFRCRIT, GKWAKE, GRCRIT, GVCRIT, GKDRAG, GKLIFT, GHMAX, GRAHILO, GSIGCR, NKTOPG, NSTRA, GSSEC, GTSEC, GVSEC, & 21 !$OMP GWD_RANDO_RUWMAX, gwd_rando_sat, GWD_FRONT_RUWMAX, gwd_front_sat) 22 END MODULE yoegwd_mod_h -
LMDZ6/trunk/libf/phylmdiso/yoegwd_mod_h.f90
r5308 r5309 1 link ../phylmd/ YOEGWD.h1 link ../phylmd/yoegwd_mod_h.f90
Note: See TracChangeset
for help on using the changeset viewer.