Ignore:
Timestamp:
Jul 25, 2024, 5:47:25 PM (4 months ago)
Author:
abarral
Message:

Correct bug in vlspltqs_loc.f90 from r2270 where we call SSUM with incorrect arguments.
Merge the three different versions of abort_gcm into one
Fix seq, para 3D compilation broken from r5107 onwards
(lint) usual + Remove uneeded fixed-form continuations

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ini_histREGDYN.h

    r5117 r5128  
    4949c TROP
    5050         CALL histdef(nid_regdyn, "hw1", "Tropics Histogram ", "%",
    51      &                kmaxm1,lmaxm1,nhoriRD, iwmax,1,iwmax, komega, 32,
    52      &                "ave(X)", zstophy,zout)
     51                      kmaxm1,lmaxm1,nhoriRD, iwmax,1,iwmax, komega, 32,
     52                      "ave(X)", zstophy,zout)
    5353
    5454         CALL histdef(nid_regdyn, "nh1", "Nb of pixels Tropics Histo",
    55      &                "%",kmaxm1,lmaxm1,nhoriRD, iwmax,1,iwmax, komega,
    56      &                32,"ave(X)", zstophy,zout)
     55                      "%",kmaxm1,lmaxm1,nhoriRD, iwmax,1,iwmax, komega,
     56                      32,"ave(X)", zstophy,zout)
    5757c
    5858
    5959         CALL histdef(nid_regdyn, "nht1",
    60      &                "Total Nb pixels Tropics Histo",
    61      &                "%",kmaxm1,lmaxm1,nhoriRD, iwmax,1,iwmax, komega,
    62      &                32,"ave(X)", zstophy,zout)
     60                      "Total Nb pixels Tropics Histo",
     61                      "%",kmaxm1,lmaxm1,nhoriRD, iwmax,1,iwmax, komega,
     62                      32,"ave(X)", zstophy,zout)
    6363c
    6464c PAN
    6565         CALL histdef(nid_regdyn, "hw2", "North Pacific Histogram", "%",
    66      &                kmaxm1,lmaxm1,nhoriRD, iwmax,1,iwmax, komega, 32,
    67      &                "ave(X)", zstophy,zout)
     66                      kmaxm1,lmaxm1,nhoriRD, iwmax,1,iwmax, komega, 32,
     67                      "ave(X)", zstophy,zout)
    6868
    6969         CALL histdef(nid_regdyn, "nh2", "Nb of pixels North Pacific",
    70      &                "%",kmaxm1,lmaxm1,nhoriRD, iwmax,1,iwmax, komega,
    71      &                32,"ave(X)", zstophy,zout)
     70                      "%",kmaxm1,lmaxm1,nhoriRD, iwmax,1,iwmax, komega,
     71                      32,"ave(X)", zstophy,zout)
    7272c
    7373
    7474         CALL histdef(nid_regdyn, "nht2",
    75      &                "Total Nb pixels North Pacific Histo",
    76      &                "%",kmaxm1,lmaxm1,nhoriRD, iwmax,1,iwmax, komega,
    77      &                32,"ave(X)", zstophy,zout)
     75                      "Total Nb pixels North Pacific Histo",
     76                      "%",kmaxm1,lmaxm1,nhoriRD, iwmax,1,iwmax, komega,
     77                      32,"ave(X)", zstophy,zout)
    7878c CAL
    7979         CALL histdef(nid_regdyn, "hw3", "California Histogram", "%",
    80      &                kmaxm1,lmaxm1,nhoriRD, iwmax,1,iwmax, komega, 32,
    81      &                "ave(X)", zstophy,zout)
     80                      kmaxm1,lmaxm1,nhoriRD, iwmax,1,iwmax, komega, 32,
     81                      "ave(X)", zstophy,zout)
    8282
    8383         CALL histdef(nid_regdyn, "nh3",
    84      &                "Nb of pixels California Histo",
    85      &                "%",kmaxm1,lmaxm1,nhoriRD, iwmax,1,iwmax, komega,
    86      &                32,"ave(X)", zstophy,zout)
     84                      "Nb of pixels California Histo",
     85                      "%",kmaxm1,lmaxm1,nhoriRD, iwmax,1,iwmax, komega,
     86                      32,"ave(X)", zstophy,zout)
    8787c
    8888
    8989         CALL histdef(nid_regdyn, "nht3",
    90      &                "Total Nb pixels California Histo",
    91      &                "%",kmaxm1,lmaxm1,nhoriRD, iwmax,1,iwmax, komega,
    92      &                32,"ave(X)", zstophy,zout)
     90                      "Total Nb pixels California Histo",
     91                      "%",kmaxm1,lmaxm1,nhoriRD, iwmax,1,iwmax, komega,
     92                      32,"ave(X)", zstophy,zout)
    9393c HAW
    9494         CALL histdef(nid_regdyn, "hw4", "Hawai Histogram", "%",
    95      &                kmaxm1,lmaxm1,nhoriRD, iwmax,1,iwmax, komega, 32,
    96      &                "ave(X)", zstophy,zout)
     95                      kmaxm1,lmaxm1,nhoriRD, iwmax,1,iwmax, komega, 32,
     96                      "ave(X)", zstophy,zout)
    9797
    9898         CALL histdef(nid_regdyn, "nh4", "Nb of pixels Hawai Histo",
    99      &                "%",kmaxm1,lmaxm1,nhoriRD, iwmax,1,iwmax, komega,
    100      &                32,"ave(X)", zstophy,zout)
     99                      "%",kmaxm1,lmaxm1,nhoriRD, iwmax,1,iwmax, komega,
     100                      32,"ave(X)", zstophy,zout)
    101101c
    102102
    103103         CALL histdef(nid_regdyn, "nht4",
    104      &                "Total Nb pixels Hawai Histo",
    105      &                "%",kmaxm1,lmaxm1,nhoriRD, iwmax,1,iwmax, komega,
    106      &                32,"ave(X)", zstophy,zout)
     104                      "Total Nb pixels Hawai Histo",
     105                      "%",kmaxm1,lmaxm1,nhoriRD, iwmax,1,iwmax, komega,
     106                      32,"ave(X)", zstophy,zout)
    107107c WAP
    108108         CALL histdef(nid_regdyn, "hw5", "Warm Pool Histogram", "%",
    109      &                kmaxm1,lmaxm1,nhoriRD, iwmax,1,iwmax, komega, 32,
    110      &                "ave(X)", zstophy,zout)
     109                      kmaxm1,lmaxm1,nhoriRD, iwmax,1,iwmax, komega, 32,
     110                      "ave(X)", zstophy,zout)
    111111
    112112         CALL histdef(nid_regdyn, "nh5", "Nb of pixels Warm Pool Histo",
    113      &                "%",kmaxm1,lmaxm1,nhoriRD, iwmax,1,iwmax, komega,
    114      &                32,"ave(X)", zstophy,zout)
     113                      "%",kmaxm1,lmaxm1,nhoriRD, iwmax,1,iwmax, komega,
     114                      32,"ave(X)", zstophy,zout)
    115115c
    116116
    117117         CALL histdef(nid_regdyn, "nht5",
    118      &                "Total Nb pixels Warm Pool Histo",
    119      &                "%",kmaxm1,lmaxm1,nhoriRD, iwmax,1,iwmax, komega,
    120      &                32,"ave(X)", zstophy,zout)
     118                      "Total Nb pixels Warm Pool Histo",
     119                      "%",kmaxm1,lmaxm1,nhoriRD, iwmax,1,iwmax, komega,
     120                      32,"ave(X)", zstophy,zout)
    121121c
    122122         CALL histend(nid_regdyn)
Note: See TracChangeset for help on using the changeset viewer.