Changeset 503
- Timestamp:
- 05/31/24 11:52:43 (6 weeks ago)
- Location:
- branches/GRISLIv3/SOURCES
- Files:
-
- 8 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/GRISLIv3/SOURCES/Draggings_modules/beta_iter_vitbil_mod.f90
r449 r503 241 241 call beta_c2stag(nx,ny,betamx,betamy,beta_centre) ! redistribue sur les mailles alternees 242 242 call beta_min_value(beta_min) ! valeur mini que peut avoir beta (en Pa an m-1) 243 244 245 debug_3D(:,:,59) = betamx(:,:)246 debug_3D(:,:,60) = beta_centre(:,:)247 243 248 244 ! estimateurs -
branches/GRISLIv3/SOURCES/Fichiers-parametres/LISTE-VAR-NETCDF.dat
r342 r503 172 172 1 1 1 173 173 ----------------------------------------------------------- 174 bm_ref_t175 197176 1 1 1177 -----------------------------------------------------------178 grad_bm179 198180 1 1 1181 -----------------------------------------------------------182 bm_time183 199184 1 1 1185 -----------------------------------------------------------186 174 ============================================ classe 2 187 175 2 220 3 ! class 2 nombre de snapmax 100 3 type de noeud a sortir … … 334 322 Nefmy 335 323 69 336 1 1 1 324 1 1 1 337 325 ----------------------------------------------------------- 338 326 posx 339 327 70 340 1 1 1 328 1 1 1 341 329 ----------------------------------------------------------- 342 330 posy 343 331 71 344 1 1 1 345 ----------------------------------------------------------- 346 fronx 347 72 348 0 1 1 349 ----------------------------------------------------------- 350 frony 351 73 352 0 1 1 353 ----------------------------------------------------------- 354 H_uw_x 355 192 356 0 1 1 357 ----------------------------------------------------------- 358 H_uw_y 359 193 360 0 1 1 332 1 1 1 361 333 ----------------------------------------------------------- 362 334 ============================================ classe 3 … … 442 414 0 1 -1 443 415 ----------------------------------------------------------- 444 fleuve445 101446 0 1 -1447 -----------------------------------------------------------448 cote449 102450 0 1 -1451 -----------------------------------------------------------452 fleuvy453 103454 1 1 -1455 -----------------------------------------------------------456 fleuvy457 104458 1 1 -1459 -----------------------------------------------------------460 416 pot_w 461 417 105 … … 498 454 1 1 1 499 455 ----------------------------------------------------------- 500 B_sm501 115502 0 1 1503 -----------------------------------------------------------504 Bslop505 116506 0 1 -1507 -----------------------------------------------------------508 Bcrx509 117510 0 1 -1511 -----------------------------------------------------------512 Bcry513 118514 0 1 -1515 -----------------------------------------------------------516 Bcrxy517 119518 0 1 -1519 -----------------------------------------------------------520 Bteta521 120522 0 1 -1523 -----------------------------------------------------------524 456 sdx 525 457 121 … … 530 462 1 1 -1 531 463 ----------------------------------------------------------- 532 motmx533 123534 0 1 1535 -----------------------------------------------------------536 motmy537 124538 0 1 1539 -----------------------------------------------------------540 str541 125542 1 1 1543 -----------------------------------------------------------544 TUIJ545 126546 0 1 -1547 -----------------------------------------------------------548 464 ppvi 549 465 127 … … 554 470 0 1 -1 555 471 ----------------------------------------------------------- 556 dTann557 129558 0 1 -1559 -----------------------------------------------------------560 rapac561 130562 0 1 -1563 -----------------------------------------------------------564 bmtot565 131566 1 1 -1567 -----------------------------------------------------------568 472 dist_talus 569 473 132 … … 594 498 0 1 -1 595 499 ----------------------------------------------------------- 596 okumat597 139598 0 1 -1599 -----------------------------------------------------------600 okvmat601 140602 0 1 -1603 -----------------------------------------------------------604 ghost_x605 141606 0 1 -1607 -----------------------------------------------------------608 ghost_y609 142610 0 1 -1611 -----------------------------------------------------------612 tbout613 143614 0 1 -1615 -----------------------------------------------------------616 bm-bmelt617 144618 1 1 -1619 -----------------------------------------------------------620 difx621 145622 0 1 -1623 -----------------------------------------------------------624 dify625 146626 0 1 -1627 -----------------------------------------------------------628 advmx629 147630 0 1 -1631 -----------------------------------------------------------632 advmy633 148634 0 1 -1635 -----------------------------------------------------------636 deltaH637 149638 0 1 -1639 -----------------------------------------------------------640 arelax641 150642 0 1 -1643 -----------------------------------------------------------644 brelax645 151646 0 1 -1647 -----------------------------------------------------------648 crelax649 152650 0 1 -1651 -----------------------------------------------------------652 drelax653 153654 0 1 -1655 -----------------------------------------------------------656 erelax657 154658 0 1 -1659 -----------------------------------------------------------660 frelax661 155662 0 1 -1663 -----------------------------------------------------------664 nb_ile665 156666 0 1 -1667 -----------------------------------------------------------668 berg669 157670 0 1 -1671 -----------------------------------------------------------672 500 i_hp 673 501 185 … … 702 530 1 1 1 703 531 ----------------------------------------------------------- 704 Vslmag705 168706 0 1 1707 -----------------------------------------------------------708 Vsl_x709 169710 0 1 1711 -----------------------------------------------------------712 Vsl_y713 170714 0 1 1715 -----------------------------------------------------------716 stress_x717 182718 0 1 1719 -----------------------------------------------------------720 stress_y721 183722 0 1 1723 -----------------------------------------------------------724 S2a_law1725 190726 0 1 1727 -----------------------------------------------------------728 S2a_law2729 191730 0 1 1731 -----------------------------------------------------------732 532 ============================================ classe 5 733 533 5 100 4 ! class 5 nombre de snapmax 100 4 type de noeud a sortir … … 817 617 220 818 618 1 1 1 819 -----------------------------------------------------------820 sftflf821 219822 1 1 1823 -----------------------------------------------------------824 litempbotgr825 220826 1 1 1827 619 ----------------------------------------------------------- 828 620 libmassbffl -
branches/GRISLIv3/SOURCES/Netcdf-routines/Description_Variables.dat
r342 r503 592 592 ------------------------------------------------------ 593 593 "xxx" 594 72 "fronx" 2595 ">"596 "xxx"597 "xxx"598 "xxx"599 "> frontfacex"600 ------------------------------------------------------601 "xxx"602 73 "frony" 2603 "^"604 "xxx"605 "xxx"606 "xxx"607 "^ frontfacey"608 ------------------------------------------------------609 "xxx"610 594 74 "CP" 3 611 595 "o" … … 712 696 ------------------------------------------------------ 713 697 "xxx" 714 101 "fleuve" 4715 "o"716 "xxx"717 "xxx"718 "xxx"719 "xxx "720 ------------------------------------------------------721 "xxx"722 102 "cote" 4723 "o"724 "xxx"725 "xxx"726 "xxx"727 "xxx"728 ------------------------------------------------------729 "xxx"730 103 "fleuvx" 4731 ">"732 "xxx"733 "xxx"734 "xxx"735 "xxx "736 ------------------------------------------------------737 "xxx"738 104 "fleuvy" 4739 "^"740 "xxx"741 "xxx"742 "xxx"743 "xxx "744 ------------------------------------------------------745 "xxx"746 698 105 "pot_w" 4 747 699 "o" … … 824 776 ------------------------------------------------------ 825 777 "xxx" 826 115 "B_sm" 4827 "o"828 "xxx"829 "xxx"830 "xxx"831 "Bsoc lisse par le calcul des courbures"832 ------------------------------------------------------833 "xxx"834 116 "Bslop" 4835 "o"836 "xxx"837 "xxx"838 "xxx"839 "pente socle"840 ------------------------------------------------------841 "xxx"842 117 "Bcrx" 4843 "o"844 "xxx"845 "xxx"846 "xxx"847 "courbure along slope"848 ------------------------------------------------------849 "xxx"850 118 "Bcry" 4851 "o"852 "xxx"853 "xxx"854 "xxx"855 "courbure transversale"856 ------------------------------------------------------857 "xxx"858 119 "Bcrxy" 4859 "o"860 "xxx"861 "xxx"862 "xxx"863 "courbure croisee"864 ------------------------------------------------------865 "xxx"866 120 "Bteta" 4867 "o"868 "xxx"869 "xxx"870 "xxx"871 "direction pente"872 ------------------------------------------------------873 "xxx"874 778 121 "sdx" 4 875 779 ">" … … 888 792 ------------------------------------------------------ 889 793 "xxx" 890 12 3 "motmx" 4891 " >"794 127 "ppvi" 4 795 "o" 892 796 "xxx" 893 797 "xxx" … … 896 800 ------------------------------------------------------ 897 801 "xxx" 898 124 "motmy" 4899 "^"900 "xxx"901 "xxx"902 "xxx"903 "xxx "904 ------------------------------------------------------905 "xxx"906 125 "str" 4907 "o"908 "xxx"909 "xxx"910 "xxx"911 "stream allowed"912 ------------------------------------------------------913 "xxx"914 126 "TUIJ" 4915 ">"916 "xxx"917 "xxx"918 "xxx"919 "xxx "920 ------------------------------------------------------921 "xxx"922 127 "ppvi" 4923 "o"924 "xxx"925 "xxx"926 "xxx"927 "xxx "928 ------------------------------------------------------929 "xxx"930 802 128 "bms" 4 931 803 "o" … … 934 806 "xxx" 935 807 "bmelt dans bmelt antarctique" 936 ------------------------------------------------------937 "xxx"938 129 "dTann" 4939 "o"940 "xxx"941 "xxx"942 "xxx"943 "Tann-Ta0"944 ------------------------------------------------------945 "xxx"946 130 "rapac" 4947 "o"948 "xxx"949 "xxx"950 "xxx"951 "Acc/precip"952 ------------------------------------------------------953 "xxx"954 131 "bmtot" 4955 "o"956 "xxx"957 "xxx"958 "xxx"959 "acc-bmelt dans conservation de la masse"960 808 ------------------------------------------------------ 961 809 "xxx" … … 1015 863 "uy en sortie de sgbsv" 1016 864 ------------------------------------------------------ 1017 "xxx"1018 139 "okumat" 41019 ">"1020 "xxx"1021 "xxx"1022 "xxx"1023 "okumat"1024 ------------------------------------------------------1025 "xxx"1026 140 "okvmat" 41027 "^"1028 "xxx"1029 "xxx"1030 "xxx"1031 "okumat "1032 ------------------------------------------------------1033 "xxx"1034 141 "ghost_x" 41035 ">"1036 "xxx"1037 "xxx"1038 "xxx"1039 "ghost_x"1040 ------------------------------------------------------1041 "xxx"1042 142 "ghost_y" 41043 "^"1044 "xxx"1045 "xxx"1046 "xxx"1047 "ghost_y"1048 ------------------------------------------------------1049 "xxx"1050 143 "tbout" 41051 "o"1052 "xxx"1053 "xxx"1054 "xxx"1055 "table_out"1056 ------------------------------------------------------1057 "xxx"1058 144 "bm-bmelt" 41059 "o"1060 "xxx"1061 "xxx"1062 "xxx"1063 "dans relax"1064 ------------------------------------------------------1065 "xxx"1066 145 "difx" 41067 ">"1068 "xxx"1069 "xxx"1070 "xxx"1071 "dans conserv masse"1072 ------------------------------------------------------1073 "xxx"1074 146 "dify" 41075 "^"1076 "xxx"1077 "xxx"1078 "xxx"1079 "dans conserv masse"1080 ------------------------------------------------------1081 "xxx"1082 147 "advmx" 41083 ">"1084 "xxx"1085 "xxx"1086 "xxx"1087 "dans conserv masse"1088 ------------------------------------------------------1089 "xxx"1090 148 "advmy" 41091 "^"1092 "xxx"1093 "xxx"1094 "xxx"1095 "dans conserv masse"1096 ------------------------------------------------------1097 "xxx"1098 149 "deltaH" 41099 "o"1100 "xxx"1101 "xxx"1102 "xxx"1103 "dans deltaH/dt dans resol"1104 ------------------------------------------------------1105 "xxx"1106 150 "arelax" 41107 "o"1108 "xxx"1109 "xxx"1110 "xxx"1111 "relax "1112 ------------------------------------------------------1113 "xxx"1114 151 "brelax" 41115 "o"1116 "xxx"1117 "xxx"1118 "xxx"1119 "xxx "1120 ------------------------------------------------------1121 "xxx"1122 152 "crelax" 41123 "o"1124 "xxx"1125 "xxx"1126 "xxx"1127 "xxx "1128 ------------------------------------------------------1129 "xxx"1130 153 "drelax" 41131 "o"1132 "xxx"1133 "xxx"1134 "xxx"1135 "xxx "1136 ------------------------------------------------------1137 "xxx"1138 154 "erelax" 41139 "o"1140 "xxx"1141 "xxx"1142 "xxx"1143 "xxx "1144 ------------------------------------------------------1145 "xxx"1146 155 "frelax" 41147 "o"1148 "xxx"1149 "xxx"1150 "xxx"1151 "xxx "1152 ------------------------------------------------------1153 "xxx"1154 156 "nb_ile" 41155 "o"1156 "xxx"1157 "xxx"1158 "xxx"1159 "nombre de point par ile"1160 ------------------------------------------------------1161 "xxx"1162 157 "berg" 41163 "o"1164 "xxx"1165 "xxx"1166 "xxx"1167 "nombre de point par ile"1168 ------------------------------------------------------1169 865 "Bm-bmelt" 1170 866 15 "btot" 4 … … 1182 878 "m/year" 1183 879 "Difference between mass balance and basal melt for floating ice" 1184 ------------------------------------------------------1185 1186 "B_cry"1187 8 "B_cry" 51188 "o"1189 "land_ice_bed_curvature"1190 "land_ice_bed_curvature"1191 "xxx"1192 "Curvature of the base if negative valleys"1193 880 ------------------------------------------------------ 1194 881 "-3.17098e-05*ghf" … … 1240 927 " balance velocities on staggered grid" !~ description 1241 928 ------------------------------------------------------ 1242 "Vslmag" ! nom de la variable1243 168 Vslmag 4 ! number, name in grisli, class1244 "o" ! node type : "o" ,"^", ">"1245 "balance velocities mag" !~ long name1246 "balance velocities mag" !~ standard name1247 "m/yr" !~ unit1248 " balance velocities magnitude " !~ description1249 ------------------------------------------------------1250 "Vsl_x" ! nom de la variable1251 169 Vsl_x 4 ! number, name in grisli, class1252 ">" ! node type : "o" ,"^", ">"1253 "balance velocities x" !~ long name1254 "balance velocities x" !~ standard name1255 "m/yr" !~ unit1256 " balance velocities on staggered grid" !~ description1257 ------------------------------------------------------1258 "Vsl_y" ! nom de la variable1259 170 Vsl_y 4 ! number, name in grisli, class1260 "^" ! node type : "o" ,"^", ">"1261 "balance velocities y" !~ long name1262 "balance velocities y" !~ standard name1263 "m/yr" !~ unit1264 " balance velocities on staggered grid" !~ description1265 ------------------------------------------------------1266 929 "coefdef_mx" ! nom de la variable 1267 930 161 coefdef_mx 4 ! number, name in grisli, class … … 1279 942 "" !~ unit 1280 943 "balance/deformation coef " !~ description 1281 ------------------------------------------------------1282 "Hbuoy" ! nom de la variable1283 163 Hbuoy 2 ! number, name in grisli, class1284 "o" ! node type : "o" ,"^", ">"1285 "" !~ long name1286 "" !~ standard name1287 "m" !~ unit1288 "Height above buoyency " !~ description1289 944 ------------------------------------------------------ 1290 945 "back_force_x" ! nom de la variable … … 1320 975 "ice flux schoof y" !~ description 1321 976 ------------------------------------------------------ 1322 "xxx" ! nom de la variable1323 182 stress_x 4 ! number, name in grisli, class1324 ">" ! node type : "o" ,"^", ">"1325 "" !~ long name1326 "" !~ standard name1327 "" !~ unit1328 "longitudinal stress from sum(Tuij Uij...) " !~ description1329 ------------------------------------------------------1330 "xxx" ! nom de la variable1331 183 stress_y 4 ! number, name in grisli, class1332 "^" ! node type : "o" ,"^", ">"1333 "" !~ long name1334 "" !~ standard name1335 "" !~ unit1336 "longitudinal stress from sum(Tuij Uij...) " !~ description1337 ------------------------------------------------------1338 "S2a_law1" ! nom de la variable1339 190 S2a_law1 4 ! number, name in grisli, class1340 "o" ! node type : "o" ,"^", ">"1341 "" !~ long name1342 "" !~ standard name1343 "a-1 Pa-3 m-3" !~ unit1344 "S2a law 1 (n=3) " !~ description attribue dans flowlaw1345 ------------------------------------------------------1346 "S2a_law2" ! nom de la variable1347 191 S2a_law2 4 ! number, name in grisli, class1348 "o" ! node type : "o" ,"^", ">"1349 "" !~ long name1350 "" !~ standard name1351 "a-1 Pa-1 m-1" !~ unit1352 "S2a law 2 (n=1) " !~ description attribue dans flowlaw1353 ------------------------------------------------------1354 "H_uw_x" ! nom de la variable1355 192 H_uw_x 2 ! number, name in grisli, class1356 ">" ! node type : "o" ,"^", ">"1357 "H upwind along x" !~ long name1358 "H upwind along x" !~ standard name1359 "m" !~ unit1360 "H upwind along x on staggered grid" !~ description1361 ------------------------------------------------------1362 "H_uw_y" ! nom de la variable1363 193 H_uw_y 2 ! number, name in grisli, class1364 "^" ! node type : "o" ,"^", ">"1365 "H upwind along y" !~ long name1366 "H upwind along y" !~ standard name1367 "m" !~ unit1368 "H upwind along y on staggered grid" !~ description1369 ------------------------------------------------------1370 "time_float" ! nom de la variable1371 194 time_float 2 ! number, name in grisli, class1372 "o" ! node type : "o" ,"^", ">"1373 "time flotation" !~ long name1374 "time flotation " !~ standard name1375 "year" !~ unit1376 "time of flotation" !~ description1377 ------------------------------------------------------1378 "ux_schoof" ! nom de la variable1379 195 ux_schoof 2 ! number, name in grisli, class1380 "o" ! node type : "o" ,"^", ">"1381 "ux_schoof" !~ long name1382 ""ux_schoof " !~ standard name1383 "m/year" !~ unit1384 "ux_schoof" !~ description1385 ------------------------------------------------------1386 "uy_schoof" ! nom de la variable1387 196 uy_schoof 2 ! number, name in grisli, class1388 "o" ! node type : "o" ,"^", ">"1389 "uy_schoof" !~ long name1390 ""uy_schoof " !~ standard name1391 "m/year" !~ unit1392 "uy_schoof" !~ description1393 ------------------------------------------------------1394 "bm_ref_t" ! nom de la variable1395 197 bm_ref_t 1 ! number, name in grisli, class1396 "o" ! node type : "o" ,"^", ">"1397 "bm_ref_t" !~ long name1398 "bm_ref_t" !~ standard name1399 "m/year" !~ unit1400 "bmasse reference" !~ description1401 ------------------------------------------------------1402 "grad_bm" ! nom de la variable1403 198 grad_bm 1 ! number, name in grisli, class1404 "o" ! node type : "o" ,"^", ">"1405 "grad_bm" !~ long name1406 "grad_bm" !~ standard name1407 "m/year/m" !~ unit1408 "gradient vertical smb" !~ description1409 ------------------------------------------------------1410 "bm_time" ! nom de la variable1411 199 bm_time 1 ! number, name in grisli, class1412 "o" ! node type : "o" ,"^", ">"1413 "bm_time" !~ long name1414 "bm_time" !~ standard name1415 "m/year" !~ unit1416 "smb from RCM" !~ description1417 ------------------------------------------------------1418 "drag_cent" ! nom de la variable1419 201 drag_cent 2 ! number, name in grisli, class1420 "o" ! node type : "o" ,"^", ">"1421 "drag_centre" !~ long name1422 "drag_centre" !~ standard name1423 "Pa an/m" !~ unit1424 "drag_centre" !~ description1425 ------------------------------------------------------1426 "ref_Hbuoy" ! nom de la variable1427 202 ref_Hbuoy 2 ! number, name in grisli, class1428 "o" ! node type : "o" ,"^", ">"1429 "ref_Hbuoy" !~ long name1430 "ref_Hbuoy" !~ standard name1431 "m" !~ unit1432 "ref_Hbuoy" !~ description !1433 ------------------------------------------------------1434 "Usl_in" ! nom de la variable1435 203 Usl_in 2 ! number, name in grisli, class1436 "o" ! node type : "o" ,"^", ">"1437 "Usl_in" !~ long name1438 "Usl_in" !~ standard name1439 "m/yr" !~ unit1440 "Usl_in" !~ description !1441 ------------------------------------------------------1442 "Usl_c" ! nom de la variable1443 204 Usl_c 2 ! number, name in grisli, class1444 "o" ! node type : "o" ,"^", ">"1445 "Usl_c" !~ long name1446 "Usl_c" !~ standard name1447 "m/yr" !~ unit1448 "Usl_c" !~ description !1449 ------------------------------------------------------1450 "coef_drag" ! nom de la variable1451 205 coef_drag 2 ! number, name in grisli, class1452 "o" ! node type : "o" ,"^", ">"1453 "coef_drag" !~ long name1454 "coef_drag" !~ standard name1455 "Pa (m/yr)**-exp_alpha" !~ unit depends on dragging law exponent1456 "drag_centre" !~ description1457 ------------------------------------------------------1458 977 "acabf" ! nom de la variable 1459 978 206 acabf 5 ! number, name in grisli, class -
branches/GRISLIv3/SOURCES/Netcdf-routines/sortie_netcdf_GRISLI_mod.0.2-hassine.f90
r481 r503 1012 1012 end do 1013 1013 end if 1014 !if (itab.eq.72) then !no longer computed1015 ! tab(:,:) = frontfacex(:,:)1016 !end if1017 !if (itab.eq.73) then1018 ! tab(:,:) = frontfacey(:,:)1019 !end if1020 1014 1021 1015 !SORTIE 3D -
branches/GRISLIv3/SOURCES/New-remplimat/remplimat-shelves-tabTu.f90
r482 r503 1177 1177 real :: betamin = 10. ! minimum value on grounded point (in Pa an /m) 1178 1178 1179 !debug_3D(:,:,69)=uxgiven(:,:)1180 !debug_3D(:,:,70)=uygiven(:,:)1181 1182 1179 1183 1180 if (itracebug.eq.1) call tracebug(' Subroutine calc_beta') … … 1222 1219 1223 1220 betamy(i,j)=-opposy(i,j) 1221 debug_3D(i,j,36) = opposy(i,j)/dx/dx ! driving stress ou pression hydrostatique (Pa) 1224 1222 do jl=-1,1 1225 1223 do il=-1,1 -
branches/GRISLIv3/SOURCES/conserv-mass-adv-diff_sept2009_mod.f90
r474 r503 388 388 end if 389 389 390 391 !debug_3D(:,:,45)=dmx(:,:)392 !debug_3D(:,:,46)=dmy(:,:)393 !debug_3D(:,:,47)=advmx(:,:)394 !debug_3D(:,:,48)=advmy(:,:)395 396 390 !$OMP PARALLEL 397 391 !$OMP WORKSHARE … … 457 451 !!$end if 458 452 459 !debug_3D(:,:,87)=S(:,:)-debug_3D(:,:,88)460 453 461 454 !debug_3D(:,:,86)=Hp(:,:) -
branches/GRISLIv3/SOURCES/initial-0.3.f90
r481 r503 134 134 ! 135 135 !------------------------------------------------------------------------------------- 136 ! ecriture netcdf apres initialisation137 136 138 !!$ if (iter_beta.eq.0) then139 !!$140 !!$ if (itracebug.eq.1) call tracebug(' Avant appel routine icethick3')141 !!$ call icethick3142 !!$ debug_3D(:,:,88) = S(:,:)143 !!$ if (itracebug.eq.1) call tracebug(' Apres appel routine icethick3')144 !!$ end if145 137 return 146 138 -
branches/GRISLIv3/SOURCES/spinup_mod.f90
r481 r503 580 580 581 581 ! remarque coef peut être <1 a cause de la pente locale, mais il joue toujours son role 582 debug_3D(:,:,73)=init_coefmx(:,:)583 debug_3D(:,:,74)=init_coefmy(:,:)584 582 585 583 debug_3D(:,:,61)=coef_defmx(:,:) … … 597 595 598 596 ! call ajust_ghf ATTENTION NE PAS ACTIVER SAUF TESTS 599 600 ! debug_3D(:,:,73)= init_coefmx(:,:)601 ! debug_3D(:,:,74)= init_coefmy(:,:)602 597 603 598 … … 667 662 end do 668 663 end do 669 !debug_3D(:,:,63)=ux_deformation(:,:)670 !debug_3D(:,:,64)=uy_deformation(:,:)671 664 672 665 if (itracebug.eq.1) call tracebug(' fin de calc_ubar_def ') … … 714 707 end do 715 708 716 debug_3D(:,:,75)=(ghf0(:,:)-ghf(:,:))*1000./secyear717 718 709 end subroutine ajust_ghf 719 710
Note: See TracChangeset
for help on using the changeset viewer.