New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 473 for trunk/NEMO/OPA_SRC/SBC/flxrnf_ORCA_R05.h90 – NEMO

Ignore:
Timestamp:
2006-05-11T17:04:37+02:00 (18 years ago)
Author:
opalod
Message:

nemo_v1_update_060: SM: IOM + 301 levels + CORE + begining of ctl_stop

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMO/OPA_SRC/SBC/flxrnf_ORCA_R05.h90

    r247 r473  
    2424      upsrnfz               !: mixed adv scheme in runoffs vicinity (vert.) 
    2525   INTEGER , PUBLIC ::   &  !: 
    26       numrof  = 48 ,     &  !: logical unit for runoff data 
    27       nrunoff =  0 ,     &  !: runoff option (namelist) 
    28       nrnf1, nrnf2          !: first and second record used 
     26      nrunoff =  0          !: runoff option (namelist) 
    2927 
    3028   !! * Module variable 
    3129   REAL(wp), DIMENSION(jpi,jpj,2) ::   &  !: 
    3230      rnfdta                !: monthly runoff data array (kg/m2/s) 
     31   INTEGER    ::         &  !: 
     32      nrnf1, nrnf2          !: first and second record used 
    3333   !!---------------------------------------------------------------------- 
    3434   !!   OPA 9.0 , LOCEAN-IPSL (2005)  
    … …  
    8080      !!---------------------------------------------------------------------- 
    8181      !! * Modules used 
    82       USE ioipsl 
    8382 
    8483      !! * arguments 
    … …  
    9493      INTEGER, PARAMETER ::   & 
    9594         jpmois=12,   &  ! number of month in the year ! 
    96          jpriv=120,   &  ! maximum number of rivers 
     95         jpriv=200,   &  ! maximum number of rivers 
    9796         jpcoef=20       ! maximum number of gridpoints for mouth rivers 
    9897 
    … …  
    215214      ! --> 1111.99988m3/s 
    216215      DATA inb(12)/2/ 
    217       DATA (iirnf(jc,12),jc=1,jpcoef)/ 244, 245, 18*0 / 
     216      DATA (iirnf(jc,12),jc=1,jpcoef)/ 244, 244, 18*0 / 
    218217      DATA (ijrnf(jc,12),jc=1,jpcoef)/ 413, 414, 18*0 / 
    219218      DATA (zrnfm(jm,12),jm=1,jpmois)/   & 
    … …  
    372371      DATA (iirnf(jc,32),jc=1,jpcoef)/ 635, 635, 636, 636, 636,637, 637,637,12*0 / 
    373372      DATA (ijrnf(jc,32),jc=1,jpcoef)/ 508, 509, 509, 508, 507,509, 508,507,12*0 / 
    374       DATA (zrnfm(jm,32),jm=1,jpmois)/   & 
    375            4977.,    4150.,    3611.,    3590.,   14723.,   33366.,   & 
    376           30773.,   22785.,   14701.,    9705.,    6078.,    5879./ 
     373     DATA (zrnfm(jm,32),jm=1,jpmois)/12*0./ 
     374!CT bug     DATA (zrnfm(jm,32),jm=1,jpmois)/   & 
     375!CT bug          4977.,    4150.,    3611.,    3590.,   14723.,   33366.,   & 
     376!CT bug         30773.,   22785.,   14701.,    9705.,    6078.,    5879./ 
    377377      ! 33-Yenesei (Russia) 71N50 82E40                     R1  
    378378      ! Old=560 km3/year=17745m3/s; UNESCO(65-84, p472)=17462m3/s 
    … …  
    498498      DATA (ijrnf(jc,49),jc=1,jpcoef)/ 269, 270, 270, 17*0 / 
    499499      DATA (zrnfm(jm,49),jm=1,jpmois)/12*14893./ 
    500       ! 50-Irrawady (Burma) 15N50  95E06                    R5 
    501       ! Old=428 km3/year=13563m3/s; not in UNESCO data base 
    502       ! --> 13563.m3/s 
    503       DATA inb(50)/2/ 
    504       DATA (iirnf(jc,50),jc=1,jpcoef)/  44,  45, 18*0 / 
    505       DATA (ijrnf(jc,50),jc=1,jpcoef)/ 283, 282, 18*0 / 
    506       DATA (zrnfm(jm,50),jm=1,jpmois)/12*13563./ 
    507       ! 51-Ganges+Brahmaputra (Beng.) 22N00  91E00          R1 
    508       ! Old=971 km3/year=30769m3/s; UNESCO(69-70+73-75, p367)=31760m3/s 
    509       ! --> 32147.498m3/s 
    510       DATA inb(51)/4/ 
    511       DATA (iirnf(jc,51),jc=1,jpcoef)/  36,  37,  38,  39, 16*0 / 
    512       DATA (ijrnf(jc,51),jc=1,jpcoef)/ 295, 295, 295, 295, 16*0 / 
    513       DATA (zrnfm(jm,51),jm=1,jpmois)/   & 
    514            6623.,    6315.,    6432.,    9410.,   17263.,   38302.,   & 
    515           64688.,   80338.,   84802.,   43387.,   17888.,   10322./ 
    516       ! 52-Mehandi (India)                                  R5 
    517       ! Old=67 km3/year=2123m3/s; not in UNESCO data base 
    518       ! --> 0m3/s 
     500 
     501      DATA inb(50)/0/ 
     502      DATA inb(51)/0/ 
    519503      DATA inb(52)/0/ 
    520       DATA (iirnf(jc,52),jc=1,jpcoef)/ 20*0 / 
    521       DATA (ijrnf(jc,52),jc=1,jpcoef)/ 20*0 / 
    522       DATA (zrnfm(jm,52),jm=1,jpmois)/12*2123./ 
     504 
    523505      ! 53-Damodar (India)                                  R2 
    524506      ! Old=10 km3/year=320m3/s; UNESCO(p386)=173m3/s; ratio=1.85 
    … …  
    530512           51.,      37.,      42.,      49.,      85.,     296.,   & 
    531513          896.,    1390.,    1591.,     542.,     172.,      44./    
    532       ! 54-Godavari (India) 17N00  81E45                    R2 
    533       ! Old=84 km3/year=2662m3/s; UNESCO(p379)=1916m3/s; ratio=1.39 
    534       ! --> 3670.5m3/s 
    535       DATA inb(54)/1/ 
    536       DATA (iirnf(jc,54),jc=1,jpcoef)/  19, 19*0 / 
    537       DATA (ijrnf(jc,54),jc=1,jpcoef)/ 283, 19*0 / 
    538       DATA (zrnfm(jm,54),jm=1,jpmois)/   & 
    539            988.,     737.,     280.,     219.,     196.,    1691.,   & 
    540           8063.,   14571.,   11428.,    3953.,    1221.,     699./    
    541       ! 55-Indus (Pakistan) 24N20  67E47             R2 
    542       ! Old=238 km3/year=7542m3/s; UNESCO (76-79, p428)=2396m3/s; ratio=3.15 
    543       ! --> 7562.m3/s 
    544       DATA inb(55)/4/ 
    545       DATA (iirnf(jc,55),jc=1,jpcoef)/ 711, 711, 712, 713, 16*0 / 
    546       DATA (ijrnf(jc,55),jc=1,jpcoef)/ 297, 298, 297, 297, 16*0 / 
    547       DATA (zrnfm(jm,55),jm=1,jpmois)/   & 
    548             988.,     737.,    1904.,    1968.,    3625.,    6143.,   & 
    549           15969.,    36656.,  17173.,    3215.,    1251.,    1115./    
    550       ! 56-Tigris and Euphrates (Iraq) 31N00  47E25         R1 
    551       ! Old=46 km3/year=1458m3/s; UNESCO(76-79, p428)=2396m3/s 
    552       ! --> 2248.8335m3/s 
    553       DATA inb(56)/3/ 
    554       DATA (iirnf(jc,56),jc=1,jpcoef)/ 673, 673, 674, 17*0 / 
    555       DATA (ijrnf(jc,56),jc=1,jpcoef)/ 312, 313, 313, 17*0 / 
    556       DATA (zrnfm(jm,56),jm=1,jpmois)/   & 
    557           1872.,    2127.,    2962.,    4944.,    5036.,    3078.,   & 
    558           1362.,     900.,     786.,     993.,    1184.,    1742./    
    559  
     514 
     515      DATA inb(54)/0/ 
     516      DATA inb(55)/0/ 
     517      DATA inb(56)/0/ 
    560518      DATA inb(57)/0/ 
    561519      DATA inb(58)/0/ 
    … …  
    632590      DATA inb(68)/1/ 
    633591      DATA (iirnf(jc,68),jc=1,jpcoef)/ 599, 19*0 / 
    634       DATA (ijrnf(jc,68),jc=1,jpcoef)/ 241, 19*0 / 
     592      DATA (ijrnf(jc,68),jc=1,jpcoef)/ 240, 19*0 / 
    635593      DATA (zrnfm(jm,68),jm=1,jpmois)/   & 
    636594          1115.,    1166.,    1285.,    1462.,    1454.,     725.,   & 
    … …  
    686644      DATA inb(74)/1/ 
    687645      DATA (iirnf(jc,74),jc=1,jpcoef)/ 594, 19*0 / 
    688       DATA (ijrnf(jc,74),jc=1,jpcoef)/ 258, 19*0 / 
     646      DATA (ijrnf(jc,74),jc=1,jpcoef)/ 257, 19*0 / 
    689647      DATA (zrnfm(jm,74),jm=1,jpmois)/   & 
    690648           88.,      63.,      68.,      95.,     139.,     222.,   & 
    … …  
    729687      DATA inb(79)/0/ 
    730688      DATA inb(80)/0/ 
     689      DATA inb(81)/0/ 
    731690      DATA inb(82)/0/ 
    732691      DATA inb(83)/0/ 
    … …  
    809768      DATA inb(99)/1/ 
    810769      DATA (iirnf(jc,99),jc=1,jpcoef)/  98, 19*0 / 
    811       DATA (ijrnf(jc,99),jc=1,jpcoef)/ 287, 19*0 / 
     770      DATA (ijrnf(jc,99),jc=1,jpcoef)/ 288, 19*0 / 
    812771      DATA (zrnfm(jm,99),jm=1,jpmois)/12*127./ 
    813772      ! 100-Hsiukuluan (Taiwan)                             R5 
    … …  
    819778      DATA (zrnfm(jm,100),jm=1,jpmois)/12*127./ 
    820779 
    821       DATA inb(101)/0/ 
    822       DATA inb(102)/0/ 
     780 
     781 
     782 
     783 
     784 
     785 
     786       ! I ASIA 
     787       ! ------ 
     788 
     789       ! 1-Indus (Pakistan) 
     790       ! --> 3949m3/s 
     791       DATA inb(101)/4/ 
     792       DATA (iirnf(jc,101),jc=1,jpcoef)/ 711, 711, 712, 713, 16*0 / 
     793       DATA (ijrnf(jc,101),jc=1,jpcoef)/ 297, 298, 297, 297, 16*0 / 
     794       DATA (zrnfm(jm,101),jm=1,jpmois)/  & 
     795     &      1691.,    2121.,    2083.,    2940.,    3738.,    4198.,  & 
     796     &      5334.,    8247.,    7833.,    4908.,    2681.,    1614./ 
     797       ! 2-Sabarmati+Mahi+Narmada (India) 
     798       ! --> 3383m3/s 
     799       DATA inb(102)/1/ 
     800!CT bug point terre       DATA (iirnf(jc,102),jc=1,jpcoef)/ 720, 19*0 / 
     801!CT bug point terre       DATA (ijrnf(jc,102),jc=1,jpcoef)/ 292, 19*0 / 
     802       DATA (iirnf(jc,102),jc=1,jpcoef)/ 719, 19*0 / 
     803       DATA (ijrnf(jc,102),jc=1,jpcoef)/ 291, 19*0 / 
     804       DATA (zrnfm(jm,102),jm=1,jpmois)/  & 
     805     &      1343.,     110.,       0.,       0.,      13.,    3051.,  & 
     806     &      9453.,   11655.,    7619.,    3547.,    2081.,    1727./ 
     807       ! 3- 
     808       ! --> 182m3/s 
     809       DATA inb(103)/1/ 
     810!CT bug point terre       DATA (iirnf(jc,103),jc=1,jpcoef)/ 721, 19*0 / 
     811!CT bug point terre       DATA (ijrnf(jc,103),jc=1,jpcoef)/ 286, 19*0 / 
     812       DATA (iirnf(jc,103),jc=1,jpcoef)/ 720, 19*0 / 
     813       DATA (ijrnf(jc,103),jc=1,jpcoef)/ 286, 19*0 / 
     814       DATA (zrnfm(jm,103),jm=1,jpmois)/  & 
     815     &      0.,       0.,       0.,       0.,     225.,     669.,  & 
     816     &      526.,     327.,     187.,     100.,      62.,      92./ 
     817       ! 4-Mandovi + Zuari + Kalinadi 
     818       ! --> 347m3/s 
     819       DATA inb(104)/1/ 
     820       DATA (iirnf(jc,104),jc=1,jpcoef)/ 2, 19*0 / 
     821       DATA (ijrnf(jc,104),jc=1,jpcoef)/ 282, 19*0 / 
     822       DATA (zrnfm(jm,104),jm=1,jpmois)/  & 
     823     &      7.,       0.,       0.,       0.,     428.,    1339.,  & 
     824     &      966.,     601.,     350.,     190.,     117.,     166./ 
     825       ! 5-                    R2 
     826       ! --> 190m3/s 
     827       DATA inb(105)/1/ 
     828       DATA (iirnf(jc,105),jc=1,jpcoef)/ 4, 19*0 / 
     829       DATA (ijrnf(jc,105),jc=1,jpcoef)/ 279, 19*0 / 
     830       DATA (zrnfm(jm,105),jm=1,jpmois)/  & 
     831     &      0.,       0.,       0.,       0.,     363.,     710.,   & 
     832     &      484.,     315.,     172.,      95.,      59.,      87./ 
     833       ! 6- 
     834       ! --> 1101m3/s 
     835       DATA inb(106)/1/ 
     836       DATA (iirnf(jc,106),jc=1,jpcoef)/ 4, 19*0 / 
     837       DATA (ijrnf(jc,106),jc=1,jpcoef)/ 277, 19*0 / 
     838       DATA (zrnfm(jm,106),jm=1,jpmois)/   & 
     839     &      79.,       0.,       0.,       0.,    1457.,    3639.,   & 
     840     &      3084.,    2031.,    1282.,     696.,     414.,     535. / 
     841       ! 7- 
     842       ! --> 948m3/s 
     843       DATA inb(107)/1/ 
     844       DATA (iirnf(jc,107),jc=1,jpcoef)/ 5, 19*0 / 
     845       DATA (ijrnf(jc,107),jc=1,jpcoef)/ 275, 19*0 / 
     846       DATA (zrnfm(jm,107),jm=1,jpmois)/  & 
     847     &      72.,       0.,       0.,       0.,    1151.,    3038.,     &  
     848     &      2583.,    1603.,    1216.,     749.,     426.,     539./ 
     849 
     850       ! 8- 
     851       ! --> 551m3/s 
     852       DATA inb(108)/1/ 
     853       DATA (iirnf(jc,108),jc=1,jpcoef)/ 7, 19*0 / 
     854       DATA (ijrnf(jc,108),jc=1,jpcoef)/ 271, 19*0 / 
     855       DATA (zrnfm(jm,108),jm=1,jpmois)/  & 
     856     &      45.,       0.,       2.,       7.,     680.,    1621.,  & 
     857     &      1234.,     744.,     784.,     696.,     359.,     442. / 
     858       ! 9- 
     859       ! --> 103m3/s 
     860       DATA inb(109)/1/ 
     861       DATA (iirnf(jc,109),jc=1,jpcoef)/ 8, 19*0 / 
     862       DATA (ijrnf(jc,109),jc=1,jpcoef)/ 269, 19*0 / 
     863       DATA (zrnfm(jm,109),jm=1,jpmois)/  & 
     864     &      11.,       0.,       0.,       0.,     160.,     250.,   & 
     865     &      200.,     145.,     168.,     146.,      74.,      89. / 
     866       ! 10- 
     867       ! --> 99m3/s 
     868       DATA inb(110)/1/ 
     869       DATA (iirnf(jc,110),jc=1,jpcoef)/12, 19*0 / 
     870       DATA (ijrnf(jc,110),jc=1,jpcoef)/267, 19*0 / 
     871       DATA (zrnfm(jm,110),jm=1,jpmois)/  & 
     872     &      50.,       1.,       1.,       0.,      25.,      69.,  & 
     873     &      51.,      32.,     176.,     329.,     233.,     222./ 
     874       ! 11- Kaveri (India) 
     875       ! --> 173m3/s 
     876       DATA inb(111)/1/ 
     877       DATA (iirnf(jc,111),jc=1,jpcoef)/16, 19*0 / 
     878       DATA (ijrnf(jc,111),jc=1,jpcoef)/271, 19*0 / 
     879       DATA (zrnfm(jm,111),jm=1,jpmois)/  & 
     880     &       97.,       2.,       1.,       2.,      19.,      67.,   & 
     881     &      108.,     134.,     218.,     515.,     498.,     416. / 
     882       ! 12- 
     883       ! --> 116m3/s 
     884       DATA inb(112)/1/ 
     885       DATA (iirnf(jc,112),jc=1,jpcoef)/16, 19*0 / 
     886       DATA (ijrnf(jc,112),jc=1,jpcoef)/279, 19*0 / 
     887       DATA (zrnfm(jm,112),jm=1,jpmois)/  & 
     888     &       43.,       0.,       0.,       0.,       0.,       0.,   & 
     889     &        0.,       0.,      99.,     568.,     343.,     342. / 
     890       ! 13- Krishna 
     891       ! --> 2864m3/s 
     892       DATA inb(113)/1/ 
     893       DATA (iirnf(jc,113),jc=1,jpcoef)/ 16, 19*0 / 
     894       DATA (ijrnf(jc,113),jc=1,jpcoef)/ 281, 19*0 / 
     895       DATA (zrnfm(jm,113),jm=1,jpmois)/   & 
     896     &       1368.,     174.,       0.,       0.,     166.,    2362.,  & 
     897     &       9501.,    8639.,    6053.,    3173.,    1763.,    1175. / 
     898       ! 14- (SriLanka) 
     899       ! --> 371m3/s 
     900       DATA inb(114)/1/ 
     901       DATA (iirnf(jc,114),jc=1,jpcoef)/ 16, 19*0 / 
     902       DATA (ijrnf(jc,114),jc=1,jpcoef)/ 261, 19*0 / 
     903       DATA (zrnfm(jm,114),jm=1,jpmois)/  & 
     904     &      171.,     144.,     292.,     469.,     414.,     309.,  & 
     905     &      269.,     244.,     526.,     560.,     476.,     588.  / 
     906       ! 15- (SriLanka) 
     907       ! --> 305m3/s 
     908       DATA inb(115)/1/ 
     909       DATA (iirnf(jc,115),jc=1,jpcoef)/18, 19*0 / 
     910       DATA (ijrnf(jc,115),jc=1,jpcoef)/262, 19*0 / 
     911       DATA (zrnfm(jm,115),jm=1,jpmois)/  & 
     912     &      116.,     111.,     225.,     379.,     366.,     300.,  & 
     913     &      256.,     239.,     385.,     437.,     388.,     467. / 
     914       ! 16- (SriLanka) 
     915       ! --> 722m3/s 
     916       DATA inb(116)/1/ 
     917       DATA (iirnf(jc,116),jc=1,jpcoef)/20, 19*0 / 
     918       DATA (ijrnf(jc,116),jc=1,jpcoef)/265, 19*0 / 
     919       DATA (zrnfm(jm,116),jm=1,jpmois)/  & 
     920     &      711.,     347.,     477.,     556.,     430.,     302.,  & 
     921     &      228.,     200.,     629.,    1156.,    1579.,    2055.   / 
     922       ! 17- (SriLanka) 
     923       ! --> 188m3/s 
     924       DATA inb(117)/1/ 
     925       DATA (iirnf(jc,117),jc=1,jpcoef)/19, 19*0 / 
     926       DATA (ijrnf(jc,117),jc=1,jpcoef)/267, 19*0 / 
     927       DATA (zrnfm(jm,117),jm=1,jpmois)/  & 
     928     &      189.,      50.,      27.,      17.,      10.,       6.,  & 
     929     &       4.,       2.,       1.,     236.,     829.,     894. / 
     930       ! 18- Godavari (India) 17N00  81E45 
     931       ! --> 2709m3/s 
     932       DATA inb(118)/1/ 
     933       DATA (iirnf(jc,118),jc=1,jpcoef)/ 19, 19*0 / 
     934       DATA (ijrnf(jc,118),jc=1,jpcoef)/283, 19*0 / 
     935       DATA (zrnfm(jm,118),jm=1,jpmois)/  & 
     936     &      1151.,      57.,       0.,       0.,      38.,    1490.,  & 
     937     &      6714.,    9065.,    7208.,    3294.,    1874.,    1629. / 
     938       ! 19- 
     939       ! --> 116m3/s 
     940       DATA inb(119)/1/ 
     941       DATA (iirnf(jc,119),jc=1,jpcoef)/23, 19*0 / 
     942       DATA (ijrnf(jc,119),jc=1,jpcoef)/286, 19*0 / 
     943       DATA (zrnfm(jm,119),jm=1,jpmois)/  & 
     944     &         17.,       0.,       0.,       0.,       0.,     103.,  & 
     945     &        259.,     341.,     330.,     155.,      87.,     110. / 
     946       ! 20- Mahanadi (India) 
     947       ! --> 2390m3/s 
     948       DATA inb(120)/1/ 
     949       DATA (iirnf(jc,120),jc=1,jpcoef)/28, 19*0 / 
     950       DATA (ijrnf(jc,120),jc=1,jpcoef)/290, 19*0 / 
     951       DATA (zrnfm(jm,120),jm=1,jpmois)/  & 
     952     &       809.,       5.,       0.,       0.,      60.,    1401.,  & 
     953     &      6652.,    8828.,    5410.,    2561.,    1503.,    1452. / 
     954       ! 21- 
     955       ! --> 247m3/s 
     956       DATA inb(121)/1/ 
     957       DATA (iirnf(jc,121),jc=1,jpcoef)/30, 19*0 / 
     958       DATA (ijrnf(jc,121),jc=1,jpcoef)/294, 19*0 / 
     959       DATA (zrnfm(jm,121),jm=1,jpmois)/  & 
     960     &         15.,       0.,       0.,       0.,      73.,     367.,   & 
     961     &        744.,     722.,     491.,     227.,     137.,     188. / 
     962       ! 22- 
     963       ! --> 167m3/s 
     964       DATA inb(122)/1/ 
     965       DATA (iirnf(jc,122),jc=1,jpcoef)/31, 19*0 / 
     966       DATA (ijrnf(jc,122),jc=1,jpcoef)/294, 19*0 / 
     967       DATA (zrnfm(jm,122),jm=1,jpmois)/  & 
     968     &         16.,       0.,       0.,       0.,      95.,     337.,  & 
     969     &        488.,     453.,     285.,     143.,      84.,     109. / 
     970       ! 23- 
     971       ! --> 206m3/s 
     972       DATA inb(123)/1/ 
     973       DATA (iirnf(jc,123),jc=1,jpcoef)/32, 19*0 / 
     974       DATA (ijrnf(jc,123),jc=1,jpcoef)/294, 19*0 / 
     975       DATA (zrnfm(jm,123),jm=1,jpmois)/  & 
     976     &         12.,       0.,       0.,       0.,      35.,     400.,  & 
     977     &        652.,     616.,     347.,     172.,     105.,     144. / 
     978       ! 24- Ganga + Brahmaputra (Bangladesh) 22N00  91E00 
     979       ! --> 42436m3/s 
     980       DATA inb(124)/9/ 
     981       DATA (iirnf(jc,124),jc=1,jpcoef)/ 37, 38, 39, 32, 33, 34, 35  & 
     982     &      , 36, 37, 11*0 / 
     983       DATA (ijrnf(jc,124),jc=1,jpcoef)/ 295,295,295,294,294,294,294  & 
     984     &      , 294, 294, 11*0 / 
     985       DATA (zrnfm(jm,124),jm=1,jpmois)/  & 
     986     &        14293.,   4223.,   3004.,  11743.,  32210.,  56899.,  & 
     987     &        82263.,  95069.,  77997.,  44194.,  23724.,  17272. / 
     988 
     989       DATA inb(125)/0/ 
     990      DATA inb(126)/0/ 
     991 
     992       ! 27- Kuladan 
     993       ! --> 1541m3/s 
     994       DATA inb(127)/1/ 
     995       DATA (iirnf(jc,127),jc=1,jpcoef)/42, 19*0 / 
     996       DATA (ijrnf(jc,127),jc=1,jpcoef)/290, 19*0 / 
     997       DATA (zrnfm(jm,127),jm=1,jpmois)/  & 
     998     &        140.,       0.,       0.,      27.,    2280.,    4133.,  & 
     999     &       4306.,    3049.,    1993.,    1115.,     646.,     812. / 
     1000       ! 28- 
     1001       ! --> 618m3/s 
     1002       DATA inb(128)/1/ 
     1003       DATA (iirnf(jc,128),jc=1,jpcoef)/44, 19*0 / 
     1004       DATA (ijrnf(jc,128),jc=1,jpcoef)/287, 19*0 / 
     1005       DATA (zrnfm(jm,128),jm=1,jpmois)/  & 
     1006     &        0.,       0.,       0.,      73.,    1139.,    1755.,  & 
     1007     &      1725.,    1139.,     677.,     362.,     221.,     326. / 
     1008       ! 29- 
     1009       ! --> 158m3/s 
     1010       DATA inb(129)/1/ 
     1011       DATA (iirnf(jc,129),jc=1,jpcoef)/44, 19*0 / 
     1012       DATA (ijrnf(jc,129),jc=1,jpcoef)/284, 19*0 / 
     1013       DATA (zrnfm(jm,129),jm=1,jpmois)/  & 
     1014     &        0.,       0.,       0.,       0.,     248.,     419.,  & 
     1015     &      445.,     334.,     201.,     103.,      63.,      93. / 
     1016       ! 30- 
     1017       ! --> 136m3/s 
     1018       DATA inb(130)/1/ 
     1019       DATA (iirnf(jc,130),jc=1,jpcoef)/32, 19*0 / 
     1020       DATA (ijrnf(jc,130),jc=1,jpcoef)/277, 19*0 / 
     1021       DATA (zrnfm(jm,130),jm=1,jpmois)/  & 
     1022     &         0.,       0.,       0.,       0.,     223.,     261.,  & 
     1023     &       269.,     315.,     223.,     147.,      86.,     116. / 
     1024       ! 31- 
     1025       ! --> 142m3/s 
     1026       DATA inb(131)/1/ 
     1027       DATA (iirnf(jc,131),jc=1,jpcoef)/42, 19*0 / 
     1028       DATA (ijrnf(jc,131),jc=1,jpcoef)/275, 19*0 / 
     1029       DATA (zrnfm(jm,131),jm=1,jpmois)/  & 
     1030     &         0.,       0.,       0.,       0.,     241.,     260.,  & 
     1031     &       270.,     325.,     231.,     158.,      96.,     126.  / 
     1032       ! 32- Irrawady (Myanmar) 15N50  95E06 
     1033       ! --> 16751m3/s 
     1034       DATA inb(132)/3/ 
     1035       DATA (iirnf(jc,132),jc=1,jpcoef)/  45,  46, 47, 17*0 / 
     1036       DATA (ijrnf(jc,132),jc=1,jpcoef)/ 282, 281, 282, 17*0 / 
     1037       DATA (zrnfm(jm,132),jm=1,jpmois)/  & 
     1038     &       7174.,     2281.,     80.,    687.,    8133.,   23980.,  & 
     1039     &       38452.,   41442.,  34497.,  23150.,   12529.,    8629. / 
     1040 
     1041       DATA inb(133)/0/ 
     1042       DATA inb(134)/0/ 
     1043       DATA inb(135)/0/ 
     1044       DATA inb(136)/0/ 
     1045 
     1046       ! 37- Tenasserim (Myanmar) 
     1047       ! --> 1369m3/s 
     1048       DATA inb(137)/1/ 
     1049       DATA (iirnf(jc,137),jc=1,jpcoef)/51, 19*0 / 
     1050       DATA (ijrnf(jc,137),jc=1,jpcoef)/279, 19*0 / 
     1051       DATA (zrnfm(jm,137),jm=1,jpmois)/  & 
     1052     &        65.,       0.,       0.,     540.,    2127.,    3260.,  & 
     1053     &      3540.,    2966.,    1747.,     900.,     544.,     741. / 
     1054       ! 38- 
     1055       ! --> 413m3/s 
     1056       DATA inb(138)/1/ 
     1057       DATA (iirnf(jc,138),jc=1,jpcoef)/52, 19*0 / 
     1058       DATA (ijrnf(jc,138),jc=1,jpcoef)/277, 19*0 / 
     1059       DATA (zrnfm(jm,138),jm=1,jpmois)/  & 
     1060     &          0.,       0.,       0.,     202.,     773.,    1000.,  & 
     1061     &       1032.,     831.,     492.,     248.,     153.,     226. / 
     1062       ! 39- 
     1063       ! --> 810m3/s 
     1064       DATA inb(139)/1/ 
     1065       DATA (iirnf(jc,139),jc=1,jpcoef)/52, 19*0 / 
     1066       DATA (ijrnf(jc,139),jc=1,jpcoef)/275, 19*0 / 
     1067       DATA (zrnfm(jm,139),jm=1,jpmois)/  & 
     1068     &         59.,       0.,       0.,      22.,    1104.,    1857.,  & 
     1069     &       2069.,    1858.,    1252.,     637.,     373.,     493. / 
     1070       ! 40- 
     1071       ! --> 896m3/s 
     1072       DATA inb(140)/1/ 
     1073       DATA (iirnf(jc,140),jc=1,jpcoef)/52, 19*0 / 
     1074       DATA (ijrnf(jc,140),jc=1,jpcoef)/273, 19*0 / 
     1075       DATA (zrnfm(jm,140),jm=1,jpmois)/  & 
     1076     &         94.,       0.,       0.,     196.,    1145.,    1716.,  & 
     1077     &       1936.,    1899.,    1519.,    1000.,     562.,     688. / 
     1078       ! 41- 
     1079       ! --> 559m3/s 
     1080       DATA inb(141)/1/ 
     1081       DATA (iirnf(jc,141),jc=1,jpcoef)/52, 19*0 / 
     1082       DATA (ijrnf(jc,141),jc=1,jpcoef)/271, 19*0 / 
     1083       DATA (zrnfm(jm,141),jm=1,jpmois)/  & 
     1084     &       38.,       0.,       0.,     227.,     805.,    1051.,  & 
     1085     &      1105.,    1236.,     941.,     575.,     321.,     416. / 
     1086       ! 42- 
     1087       ! --> 1070m3/s 
     1088       DATA inb(142)/1/ 
     1089       DATA (iirnf(jc,142),jc=1,jpcoef)/53, 19*0 / 
     1090       DATA (ijrnf(jc,142),jc=1,jpcoef)/265, 19*0 / 
     1091       DATA (zrnfm(jm,142),jm=1,jpmois)/  & 
     1092     &       356.,      18.,      14.,     160.,     745.,    1123.,  & 
     1093     &      1347.,    1732.,    2076.,    2057.,    1574.,    1639. / 
     1094       ! 43- 
     1095       ! --> 513m3/s 
     1096       DATA inb(143)/1/ 
     1097       DATA (iirnf(jc,143),jc=1,jpcoef)/54, 19*0 / 
     1098       DATA (ijrnf(jc,143),jc=1,jpcoef)/263, 19*0 / 
     1099       DATA (zrnfm(jm,143),jm=1,jpmois)/  & 
     1100     &       231.,      12.,     121.,     236.,     216.,     239.,  & 
     1101     &       351.,     517.,    1008.,    1324.,     975.,     929.  / 
     1102       ! 44- 
     1103       ! --> 881m3/s 
     1104       DATA inb(144)/1/ 
     1105       DATA (iirnf(jc,144),jc=1,jpcoef)/56, 19*0 / 
     1106       DATA (ijrnf(jc,144),jc=1,jpcoef)/259, 19*0 / 
     1107       DATA (zrnfm(jm,144),jm=1,jpmois)/  & 
     1108     &      558.,     632.,     980.,     902.,     575.,     421.,  & 
     1109     &      432.,     731.,    1276.,    1405.,    1188.,    1480. / 
     1110       ! 45- 
     1111       ! --> 905m3/s 
     1112       DATA inb(145)/1/ 
     1113       DATA (iirnf(jc,145),jc=1,jpcoef)/52, 19*0 / 
     1114       DATA (ijrnf(jc,145),jc=1,jpcoef)/259, 19*0 / 
     1115       DATA (zrnfm(jm,145),jm=1,jpmois)/  & 
     1116     &      604.,     552.,     781.,     853.,     627.,     488.,  & 
     1117     &      503.,     781.,    1245.,    1356.,    1331.,    1747. / 
     1118       ! 46- 
     1119       ! --> 136m3/s 
     1120       DATA inb(146)/1/ 
     1121       DATA (iirnf(jc,146),jc=1,jpcoef)/50, 19*0 / 
     1122       DATA (ijrnf(jc,146),jc=1,jpcoef)/261, 19*0 / 
     1123       DATA (zrnfm(jm,146),jm=1,jpmois)/  & 
     1124     &      103.,     111.,     126.,     112.,      66.,      40.,  & 
     1125     &       35.,      51.,     126.,     227.,     279.,     362.  / 
     1126       ! 47- 
     1127       ! --> 222m3/s 
     1128       DATA inb(147)/1/ 
     1129       DATA (iirnf(jc,147),jc=1,jpcoef)/47, 19*0 / 
     1130       DATA (ijrnf(jc,147),jc=1,jpcoef)/258, 19*0 / 
     1131       DATA (zrnfm(jm,147),jm=1,jpmois)/  & 
     1132     &      176.,     160.,     209.,     197.,     130.,      99.,  & 
     1133     &       90.,     151.,     240.,     342.,     373.,     502./ 
     1134       ! 48- 
     1135       ! --> 326m3/s 
     1136       DATA inb(148)/1/ 
     1137       DATA (iirnf(jc,148),jc=1,jpcoef)/49, 19*0 / 
     1138       DATA (ijrnf(jc,148),jc=1,jpcoef)/257, 19*0 / 
     1139       DATA (zrnfm(jm,148),jm=1,jpmois)/  & 
     1140     &       226.,     278.,     363.,     301.,     181.,     130.,  & 
     1141     &       131.,     194.,     407.,     505.,     519.,     689. / 
     1142       ! 49- 
     1143       ! --> 203m3/s 
     1144       DATA inb(149)/1/ 
     1145       DATA (iirnf(jc,149),jc=1,jpcoef)/50, 19*0 / 
     1146       DATA (ijrnf(jc,149),jc=1,jpcoef)/256, 19*0 / 
     1147       DATA (zrnfm(jm,149),jm=1,jpmois)/  & 
     1148     &      120.,     218.,     233.,     189.,     134.,     128.,  & 
     1149     &      115.,     178.,     244.,     272.,     247.,     360. / 
     1150       ! 50- 
     1151       ! --> 153m3/s 
     1152       DATA inb(150)/1/ 
     1153       DATA (iirnf(jc,150),jc=1,jpcoef)/50, 19*0 / 
     1154       DATA (ijrnf(jc,150),jc=1,jpcoef)/255, 19*0 / 
     1155       DATA (zrnfm(jm,150),jm=1,jpmois)/  & 
     1156     &         97.,     108.,     191.,     141.,      97.,      82.,  & 
     1157     &        107.,     118.,     188.,     230.,     208.,     278. / 
     1158       ! 51- 
     1159       ! --> 196m3/s 
     1160       DATA inb(151)/1/ 
     1161       DATA (iirnf(jc,151),jc=1,jpcoef)/53, 19*0 / 
     1162       DATA (ijrnf(jc,151),jc=1,jpcoef)/253, 19*0 / 
     1163       DATA (zrnfm(jm,151),jm=1,jpmois)/  & 
     1164     &        74.,     125.,     165.,     123.,     117.,     121.,  & 
     1165     &       160.,     196.,     272.,     322.,     296.,     389. / 
     1166       ! 52- 
     1167       ! --> 166m3/s 
     1168       DATA inb(152)/1/ 
     1169       DATA (iirnf(jc,152),jc=1,jpcoef)/53, 19*0 / 
     1170       DATA (ijrnf(jc,152),jc=1,jpcoef)/252, 19*0 / 
     1171       DATA (zrnfm(jm,152),jm=1,jpmois)/  & 
     1172     &      136.,     140.,     192.,     169.,     108.,      80.,  & 
     1173     &      75.,     145.,     200.,     219.,     221.,     307. / 
     1174       ! 53-Tigris+Euphrates (Irak) 31N00  47E25 
     1175       ! --> 4762m3/s 
     1176       DATA inb(153)/3/ 
     1177       DATA (iirnf(jc,153),jc=1,jpcoef)/ 673, 673, 674, 17*0 / 
     1178       DATA (ijrnf(jc,153),jc=1,jpcoef)/ 312, 313, 313, 17*0 / 
     1179       DATA (zrnfm(jm,153),jm=1,jpmois)/  & 
     1180     &       6056.,    7229.,    8377.,    8505.,    7966.,    6217.,  & 
     1181     &       3396.,    1898.,    1147.,     869.,    1714.,    3779. / 
     1182 
     1183       DATA (inb(jr),jr=154,200)/47*0/ 
     1184 
    8231185 
    8241186      !  Total run-offs(VII)=6181.33301m3/s 
    … …  
    8281190      !                                      = 0.567083955 Sverdrup 
    8291191 
    830       DATA (inb(jr),jr=103,jpriv)/18*0/ 
    831        
    8321192      !!---------------------------------------------------------------------- 
    8331193      !!  OPA 8.5, LODYC-IPSL (2002) 
    … …  
    8711231 
    8721232         iman  = jpmois 
    873           
     1233 !!! better but change the results      i15 = INT( 2*FLOAT( nday ) / ( FLOAT( nobis(nmonth) ) + 0.5 ) ) 
    8741234         i15 = nday / 16 
    875           
    8761235         imois = nmonth + i15 - 1 
    8771236         IF( imois == 0) imois = iman 
    … …  
    10911450                     ! ji+2,jj+2 
    10921451                     DO jj = mj0(ijrnf(jl,jr) + 2), mj1(ijrnf(jl,jr) + 2) 
    1093                         DO ji = mi0(iirnf(jl,jr) + 1), mi1(iirnf(jl,jr) + 1) 
     1452                        DO ji = mi0(iirnf(jl,jr) + 2), mi1(iirnf(jl,jr) + 2) 
    10941453                           DO jn = 1, 3   
    10951454                              zcoefr(ji,jj,jn) = MAX( zrup3, zcoefr(ji,jj,jn) ) 
Note: See TracChangeset for help on using the changeset viewer.