Changeset 5709 for LMDZ6


Ignore:
Timestamp:
Jun 16, 2025, 5:26:50 PM (7 weeks ago)
Author:
fcheruy
Message:

to work with xios et output spectral clear sky flux

Location:
LMDZ6/trunk
Files:
7 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/DefLists/field_def_lmdz.xml

    r5688 r5709  
    679679        <field id="lwtoab2490" long_name="LW TOA  band 2490cm-1" unit="W m-2" />
    680680        <field id="lwtoab2800" long_name="LW TOA  band 2800cm-1" unit="W m-2" />
     681        <field id="lwtoa0b130" long_name="LW TOA CS  band 130cm-1" unit="W m-2" />
     682        <field id="lwtoa0b375" long_name="LW TOA CS  band 375cm-1 " unit="W m-2" />
     683        <field id="lwtoa0b565" long_name="LW TOA CS  band 565cm-1" unit="W m-2" />
     684        <field id="lwtoa0b665" long_name="LW TOA CS  band 665cm-1" unit="W m-2" />
     685        <field id="lwtoa0b760" long_name="LW TOA CS  band 760cm-1" unit="W m-2" />
     686        <field id="lwtoa0b900" long_name="LW TOA CS  band 900cm-1" unit="W m-2" />
     687        <field id="lwtoa0b1030" long_name="LW TOA CS  band 1030cm-1" unit="W m-2" />
     688        <field id="lwtoa0b1130" long_name="LW TOA CS  band 1130cm-1" unit="W m-2" />
     689        <field id="lwtoa0b1285" long_name="LW TOA CS  band 1285cm-1" unit="W m-2" />
     690        <field id="lwtoa0b1435" long_name="LW TOA CS  band 1435cm-1" unit="W m-2" />
     691        <field id="lwtoa0b1640" long_name="LW TOA CS  band 1640cm-1" unit="W m-2" />
     692        <field id="lwtoa0b1940" long_name="LW TOA CS  band 1940cm-1" unit="W m-2" />
     693        <field id="lwtoa0b2165" long_name="LW TOA CS  band 2165cm-1" unit="W m-2" />
     694        <field id="lwtoa0b2315" long_name="LW TOA CS  band 2315cm-1" unit="W m-2" />
     695        <field id="lwtoa0b2490" long_name="LW TOA CS  band 2490cm-1" unit="W m-2" />
     696        <field id="lwtoa0b2800" long_name="LW TOA CS  band 2800cm-1" unit="W m-2" />
    681697        <field id="lwtoabtot" long_name="LW TOA  band total" unit="W m-2" />
     698        <field id="lwtoa0btot" long_name="LW TOA  band total CS" unit="W m-2" />
    682699        <field id="lwtoa0b" long_name="LW TOA CS band" unit="W m-2" />
    683700        <field id="lwtoab4co2" long_name="LW TOA  band 4xCO2" unit="W m-2" />

  • LMDZ6/trunk/DefLists/file_def_histLES_lmdz.xml

    r5677 r5709  
    9292                <field field_ref="lwtoab2165" level="10" />
    9393                <field field_ref="lwtoab2315" level="10" />
    94                 <field field_ref="lwtoab2315" level="10" />
    9594                <field field_ref="lwtoab2490" level="10" />
    9695                <field field_ref="lwtoab2800" level="10" />
     96                <field field_ref="lwtoa0b130" level="10" />
     97                <field field_ref="lwtoa0b375" level="10" />
     98                <field field_ref="lwtoa0b565" level="10" />
     99                <field field_ref="lwtoa0b665" level="10" />
     100                <field field_ref="lwtoa0b760" level="10" />
     101                <field field_ref="lwtoa0b900" level="10" />
     102                <field field_ref="lwtoa0b1030" level="10" />
     103                <field field_ref="lwtoa0b1130" level="10" />
     104                <field field_ref="lwtoa0b1285" level="10" />
     105                <field field_ref="lwtoa0b1435" level="10" />
     106                <field field_ref="lwtoa0b1640" level="10" />
     107                <field field_ref="lwtoa0b1940" level="10" />
     108                <field field_ref="lwtoa0b2165" level="10" />
     109                <field field_ref="lwtoa0b2315" level="10" />
     110                <field field_ref="lwtoa0b2490" level="10" />
     111                <field field_ref="lwtoa0b2800" level="10" />
     112                <field field_ref="lwtoabtot" level="10" />
     113                <field field_ref="lwtoa0btot" level="10" />
    97114                <field field_ref="topl0" level="10" />
    98115                <field field_ref="SWupTOA" level="10" />

  • LMDZ6/trunk/DefLists/file_def_histday_lmdz.xml

    r5677 r5709  
    103103                <field field_ref="lwtoab2165" level="10" />
    104104                <field field_ref="lwtoab2315" level="10" />
    105                 <field field_ref="lwtoab2315" level="10" />
    106105                <field field_ref="lwtoab2490" level="10" />
    107106                <field field_ref="lwtoab2800" level="10" />
     107                <field field_ref="lwtoa0b130" level="10" />
     108                <field field_ref="lwtoa0b375" level="10" />
     109                <field field_ref="lwtoa0b565" level="10" />
     110                <field field_ref="lwtoa0b665" level="10" />
     111                <field field_ref="lwtoa0b760" level="10" />
     112                <field field_ref="lwtoa0b900" level="10" />
     113                <field field_ref="lwtoa0b1030" level="10" />
     114                <field field_ref="lwtoa0b1130" level="10" />
     115                <field field_ref="lwtoa0b1285" level="10" />
     116                <field field_ref="lwtoa0b1435" level="10" />
     117                <field field_ref="lwtoa0b1640" level="10" />
     118                <field field_ref="lwtoa0b1940" level="10" />
     119                <field field_ref="lwtoa0b2165" level="10" />
     120                <field field_ref="lwtoa0b2315" level="10" />
     121                <field field_ref="lwtoa0b2490" level="10" />
     122                <field field_ref="lwtoa0b2800" level="10" />
    108123                <field field_ref="lwtoabtot" level="10" />
     124                <field field_ref="lwtoa0btot" level="10" />
    109125                <field field_ref="topl0" level="5" />
    110126                <field field_ref="SWupTOA" level="4" />
    … …  
    772788                <field field_ref="rsucs" level="10" />
    773789                <field field_ref="rsdcs" level="10" />
    774                 <field field_ref="rlucs" level="10" />
     790                <field field_ref="rlucs" level="1" />
    775791                <field field_ref="rldcs" level="10" />
    776792                <field field_ref="rldcs4co2" level="10" />

  • LMDZ6/trunk/DefLists/file_def_histhf_lmdz.xml

    r5677 r5709  
    107107                <field field_ref="lwtoab2165" level="10" />
    108108                <field field_ref="lwtoab2315" level="10" />
    109                 <field field_ref="lwtoab2315" level="10" />
    110109                <field field_ref="lwtoab2490" level="10" />
    111110                <field field_ref="lwtoab2800" level="10" />
     111                <field field_ref="lwtoa0b130" level="10" />
     112                <field field_ref="lwtoa0b375" level="10" />
     113                <field field_ref="lwtoa0b565" level="10" />
     114                <field field_ref="lwtoa0b665" level="10" />
     115                <field field_ref="lwtoa0b760" level="10" />
     116                <field field_ref="lwtoa0b900" level="10" />
     117                <field field_ref="lwtoa0b1030" level="10" />
     118                <field field_ref="lwtoa0b1130" level="10" />
     119                <field field_ref="lwtoa0b1285" level="10" />
     120                <field field_ref="lwtoa0b1435" level="10" />
     121                <field field_ref="lwtoa0b1640" level="10" />
     122                <field field_ref="lwtoa0b1940" level="10" />
     123                <field field_ref="lwtoa0b2165" level="10" />
     124                <field field_ref="lwtoa0b2315" level="10" />
     125                <field field_ref="lwtoa0b2490" level="10" />
     126                <field field_ref="lwtoa0b2800" level="10" />
     127                <field field_ref="lwtoa0btot" level="10" />
    112128                <field field_ref="topl0" level="10" />
    113129                <field field_ref="SWupTOA" level="10" />

  • LMDZ6/trunk/DefLists/file_def_histmth_lmdz.xml

    r5677 r5709  
    137137                <field field_ref="lwtoab2165" level="10" />
    138138                <field field_ref="lwtoab2315" level="10" />
    139                 <field field_ref="lwtoab2315" level="10" />
    140139                <field field_ref="lwtoab2490" level="10" />
    141140                <field field_ref="lwtoab2800" level="10" />
     141                <field field_ref="lwtoa0b130" level="10" />
     142                <field field_ref="lwtoa0b375" level="10" />
     143                <field field_ref="lwtoa0b565" level="10" />
     144                <field field_ref="lwtoa0b665" level="10" />
     145                <field field_ref="lwtoa0b760" level="10" />
     146                <field field_ref="lwtoa0b900" level="10" />
     147                <field field_ref="lwtoa0b1030" level="10" />
     148                <field field_ref="lwtoa0b1130" level="10" />
     149                <field field_ref="lwtoa0b1285" level="10" />
     150                <field field_ref="lwtoa0b1435" level="10" />
     151                <field field_ref="lwtoa0b1640" level="10" />
     152                <field field_ref="lwtoa0b1940" level="10" />
     153                <field field_ref="lwtoa0b2165" level="10" />
     154                <field field_ref="lwtoa0b2315" level="10" />
     155                <field field_ref="lwtoa0b2490" level="10" />
     156                <field field_ref="lwtoa0b2800" level="10" />
     157                <field field_ref="lwtoa0btot" level="10" />
     158                <field field_ref="lwtoabtot" level="10" />
    142159                <field field_ref="topl0"    level="1" />
    143160                <field field_ref="SWupTOA"  level="1" />

  • LMDZ6/trunk/libf/phylmd/phys_output_ctrlout_mod.F90

    r5677 r5709  
    487487  TYPE(ctrl_out), SAVE :: o_lwtoab130 = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), &
    488488    'lwtoab130', 'LW TOA  band 130cm-1 ', 'W m-2', (/ ('', i=1, 10) /))
     489  TYPE(ctrl_out), SAVE :: o_lwtoa0b130 = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), &
     490    'lwtoa0b130', 'LW TOA  band 130cm-1 CS', 'W m-2', (/ ('', i=1, 10) /))
    489491  TYPE(ctrl_out), SAVE :: o_lwtoab375 = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), &
    490492    'lwtoab375', 'LW TOA  band 375cm-1', 'W m-2', (/ ('', i=1, 10) /))
     493  TYPE(ctrl_out), SAVE :: o_lwtoa0b375 = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), &
     494    'lwtoa0b375', 'LW TOA  band 375cm-1 CS', 'W m-2', (/ ('', i=1, 10) /))
    491495  TYPE(ctrl_out), SAVE :: o_lwtoab565 = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), &
    492496    'lwtoab565', 'LW TOA  band 565cm-1 ', 'W m-2', (/ ('', i=1, 10) /))
     497  TYPE(ctrl_out), SAVE :: o_lwtoa0b565 = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), &
     498    'lwtoa0b565', 'LW TOA  band 565cm-1 CS ', 'W m-2', (/ ('', i=1, 10) /))
    493499  TYPE(ctrl_out), SAVE :: o_lwtoab665 = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), &
    494500    'lwtoab665', 'LW TOA  band 665cm-1', 'W m-2', (/ ('', i=1, 10) /))
     501  TYPE(ctrl_out), SAVE :: o_lwtoa0b665 = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), &
     502    'lwtoa0b665', 'LW TOA  band 665cm-1 CS', 'W m-2', (/ ('', i=1, 10) /))
    495503  TYPE(ctrl_out), SAVE :: o_lwtoab760 = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), &
    496504    'lwtoab760', 'LW TOA  band 760cm-1', 'W m-2', (/ ('', i=1, 10) /))
     505  TYPE(ctrl_out), SAVE :: o_lwtoa0b760 = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), &
     506    'lwtoa0b760', 'LW TOA  band 760cm-1 CS', 'W m-2', (/ ('', i=1, 10) /))
    497507  TYPE(ctrl_out), SAVE :: o_lwtoab900 = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), &
    498508    'lwtoab900', 'LW TOA  band 900cm-1', 'W m-2', (/ ('', i=1, 10) /))
     509  TYPE(ctrl_out), SAVE :: o_lwtoa0b900 = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), &
     510    'lwtoa0b900', 'LW TOA  band 900cm-1 CS', 'W m-2', (/ ('', i=1, 10) /))
    499511  TYPE(ctrl_out), SAVE :: o_lwtoab1030 = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), &
    500512    'lwtoab1030', 'LW TOA  band 1030cm-1', 'W m-2', (/ ('', i=1, 10) /))
     513  TYPE(ctrl_out), SAVE :: o_lwtoa0b1030 = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), &
     514    'lwtoa0b1030', 'LW TOA  band 1030cm-1 CS', 'W m-2', (/ ('', i=1, 10) /))
    501515  TYPE(ctrl_out), SAVE :: o_lwtoab1130 = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), &
    502516    'lwtoab1130', 'LW TOA  band 1130cm-1', 'W m-2', (/ ('', i=1, 10) /))
     517  TYPE(ctrl_out), SAVE :: o_lwtoa0b1130 = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), &
     518    'lwtoa0b1130', 'LW TOA  band 1130cm-1 CS', 'W m-2', (/ ('', i=1, 10) /))
    503519  TYPE(ctrl_out), SAVE :: o_lwtoab1285 = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), &
    504520    'lwtoab1285', 'LW TOA  band 1285cm-1', 'W m-2', (/ ('', i=1, 10) /))
     521  TYPE(ctrl_out), SAVE :: o_lwtoa0b1285 = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), &
     522    'lwtoa0b1285', 'LW TOA  band 1285cm-1 CS', 'W m-2', (/ ('', i=1, 10) /))
    505523  TYPE(ctrl_out), SAVE :: o_lwtoab1435 = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), &
    506524    'lwtoab1435', 'LW TOA  band 1435cm-1', 'W m-2', (/ ('', i=1, 10) /))
     525  TYPE(ctrl_out), SAVE :: o_lwtoa0b1435 = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), &
     526    'lwtoa0b1435', 'LW TOA  band 1435cm-1 CS', 'W m-2', (/ ('', i=1, 10) /))
    507527  TYPE(ctrl_out), SAVE :: o_lwtoab1640 = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), &
    508528    'lwtoab1640', 'LW TOA  band 1640cm-1', 'W m-2', (/ ('', i=1, 10) /))
     529  TYPE(ctrl_out), SAVE :: o_lwtoa0b1640 = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), &
     530    'lwtoa0b1640', 'LW TOA  band 1640cm-1 CS', 'W m-2', (/ ('', i=1, 10) /))
    509531  TYPE(ctrl_out), SAVE :: o_lwtoab1940 = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), &
    510532    'lwtoab1940', 'LW TOA  band 1940cm-1', 'W m-2', (/ ('', i=1, 10) /))
     533  TYPE(ctrl_out), SAVE :: o_lwtoa0b1940 = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), &
     534    'lwtoa0b1940', 'LW TOA  band 1940cm-1 CS', 'W m-2', (/ ('', i=1, 10) /))
    511535  TYPE(ctrl_out), SAVE :: o_lwtoab2165 = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), &
    512536    'lwtoab2165', 'LW TOA  band 2165cm-1', 'W m-2', (/ ('', i=1, 10) /))
     537  TYPE(ctrl_out), SAVE :: o_lwtoa0b2165 = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), &
     538    'lwtoa0b2165', 'LW TOA  band 2165cm-1 CS', 'W m-2', (/ ('', i=1, 10) /))
    513539  TYPE(ctrl_out), SAVE :: o_lwtoab2315 = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), &
    514540    'lwtoab2315', 'LW TOA  band 2315cm-1', 'W m-2', (/ ('', i=1, 10) /))
     541  TYPE(ctrl_out), SAVE :: o_lwtoa0b2315 = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), &
     542    'lwtoa0b2315', 'LW TOA  band 2315cm-1 CS', 'W m-2', (/ ('', i=1, 10) /))
    515543  TYPE(ctrl_out), SAVE :: o_lwtoab2490 = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), &
    516544    'lwtoab2490', 'LW TOA  band 2490cm-1', 'W m-2', (/ ('', i=1, 10) /))
     545  TYPE(ctrl_out), SAVE :: o_lwtoa0b2490 = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), &
     546    'lwtoa0b2490', 'LW TOA  band 2490cm-1 CS', 'W m-2', (/ ('', i=1, 10) /))
    517547  TYPE(ctrl_out), SAVE :: o_lwtoab2800 = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), &
    518548    'lwtoab2800', 'LW TOA  band 2800cm-1 ', 'W m-2', (/ ('', i=1, 10) /))
     549  TYPE(ctrl_out), SAVE :: o_lwtoa0b2800 = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), &
     550    'lwtoa0b2800', 'LW TOA  band 2800cm-1 CS ', 'W m-2', (/ ('', i=1, 10) /))
    519551  TYPE(ctrl_out), SAVE :: o_lwtoabtot = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), &
    520552    'lwtoabtot', 'LW TOA  band total', 'W m-2', (/ ('', i=1, 10) /))
     553 TYPE(ctrl_out), SAVE :: o_lwtoa0btot = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), &
     554    'lwtoa0btot', 'LW TOA  band total CS', 'W m-2', (/ ('', i=1, 10) /))
    521555  TYPE(ctrl_out), SAVE :: o_lwtoa0b = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), &
    522556    'lwtoa0b', 'LW TOA CS band ', 'W m-2', (/ ('', i=1, 10) /))

  • LMDZ6/trunk/libf/phylmd/phys_output_write_mod.F90

    r5678 r5709  
    252252         o_lwtoab1285, o_lwtoab1435, o_lwtoab1640, o_lwtoab1940, &
    253253         o_lwtoab2165, o_lwtoab2315, o_lwtoab2490, o_lwtoab2800, &
    254          o_lwtoabtot, &  !Somme de tous les canaux
     254         o_lwtoa0b130, o_lwtoa0b375 ,o_lwtoa0b565, o_lwtoa0b665, &
     255         o_lwtoa0b760, o_lwtoa0b900, o_lwtoa0b1030, o_lwtoa0b1130, &  ! les 16 canaux FC
     256         o_lwtoa0b1285, o_lwtoa0b1435, o_lwtoa0b1640, o_lwtoa0b1940, &
     257         o_lwtoa0b2165, o_lwtoa0b2315, o_lwtoa0b2490, o_lwtoa0b2800, &
     258         o_lwtoabtot, o_lwtoa0btot, &  !Somme de tous les canaux
    255259         o_lwtoa0b, &  ! les 16 canaux FC
    256260         o_lwtoab4co2,o_lwtoacsb4co2,                            &   ! les 16 canaux FC
    … …  
    10011005       ENDIF
    10021006       CALL histwrite_phy(o_lwtoabtot, zx_tmp_fi2d)
    1003 
    1004    IF (vars_defined) zx_tmp_fi2d=lwtoab(:,1)
     1007           IF (vars_defined) THEN
     1008                DO i=1, klon
     1009             zx_tmp_fi2d(i)=0.
     1010          DO ll=1,nlw
     1011             zx_tmp_fi2d(i)=zx_tmp_fi2d(i)+lwtoa0b(i,ll)
     1012          ENDDO
     1013          ENDDO
     1014       ENDIF
     1015       CALL histwrite_phy(o_lwtoa0btot, zx_tmp_fi2d)
     1016
     1017
     1018       IF (vars_defined) zx_tmp_fi2d=lwtoab(:,1)
    10051019!       CALL histwrite_phy(o_lwtoab, zx_tmp_fi3dsplw)
    10061020       CALL histwrite_phy(o_lwtoab130, zx_tmp_fi2d)
    … …  
    10511065       CALL histwrite_phy(o_lwtoab2800, zx_tmp_fi2d)
    10521066
    1053        IF (vars_defined) zx_tmp_fi3dsplw=lwtoa0b
    1054        CALL histwrite_phy(o_lwtoa0b, zx_tmp_fi3dsplw)
     1067!FC
     1068        zx_tmp_fi2d(:)=0.
     1069       IF (vars_defined) zx_tmp_fi2d=lwtoa0b(:,1)
     1070       CALL histwrite_phy(o_lwtoa0b130, zx_tmp_fi2d)
     1071
     1072        zx_tmp_fi2d(:)=0.
     1073       IF (vars_defined) zx_tmp_fi2d=lwtoa0b(:,2)
     1074       CALL histwrite_phy(o_lwtoa0b375, zx_tmp_fi2d)
     1075
     1076        zx_tmp_fi2d(:)=0.
     1077       IF (vars_defined) zx_tmp_fi2d=lwtoa0b(:,3)
     1078       CALL histwrite_phy(o_lwtoa0b565, zx_tmp_fi2d)
     1079
     1080        zx_tmp_fi2d(:)=0.
     1081       IF (vars_defined) zx_tmp_fi2d=lwtoa0b(:,4)
     1082       CALL histwrite_phy(o_lwtoa0b665, zx_tmp_fi2d)
     1083
     1084        zx_tmp_fi2d(:)=0.
     1085       IF (vars_defined) zx_tmp_fi2d=lwtoa0b(:,5)
     1086       CALL histwrite_phy(o_lwtoa0b760, zx_tmp_fi2d)
     1087
     1088        zx_tmp_fi2d(:)=0.
     1089       IF (vars_defined) zx_tmp_fi2d=lwtoa0b(:,6)
     1090       CALL histwrite_phy(o_lwtoa0b900, zx_tmp_fi2d)
     1091
     1092        zx_tmp_fi2d(:)=0.
     1093       IF (vars_defined) zx_tmp_fi2d=lwtoa0b(:,7)
     1094       CALL histwrite_phy(o_lwtoa0b1030, zx_tmp_fi2d)
     1095
     1096        zx_tmp_fi2d(:)=0.
     1097       IF (vars_defined) zx_tmp_fi2d=lwtoa0b(:,8)
     1098       CALL histwrite_phy(o_lwtoa0b1130, zx_tmp_fi2d)
     1099
     1100        zx_tmp_fi2d(:)=0.
     1101       IF (vars_defined) zx_tmp_fi2d=lwtoa0b(:,9)
     1102       CALL histwrite_phy(o_lwtoa0b1285, zx_tmp_fi2d)
     1103
     1104        zx_tmp_fi2d(:)=0.
     1105       IF (vars_defined) zx_tmp_fi2d=lwtoa0b(:,10)
     1106       CALL histwrite_phy(o_lwtoa0b1435, zx_tmp_fi2d)
     1107
     1108        zx_tmp_fi2d(:)=0.
     1109       IF (vars_defined) zx_tmp_fi2d=lwtoa0b(:,11)
     1110       CALL histwrite_phy(o_lwtoa0b1640, zx_tmp_fi2d)
     1111
     1112        zx_tmp_fi2d(:)=0.
     1113       IF (vars_defined) zx_tmp_fi2d=lwtoa0b(:,12)
     1114       CALL histwrite_phy(o_lwtoa0b1940, zx_tmp_fi2d)
     1115
     1116        zx_tmp_fi2d(:)=0.
     1117       IF (vars_defined) zx_tmp_fi2d=lwtoa0b(:,13)
     1118       CALL histwrite_phy(o_lwtoa0b2165, zx_tmp_fi2d)
     1119
     1120        zx_tmp_fi2d(:)=0.
     1121       IF (vars_defined) zx_tmp_fi2d=lwtoa0b(:,14)
     1122       CALL histwrite_phy(o_lwtoa0b2315, zx_tmp_fi2d)
     1123
     1124        zx_tmp_fi2d(:)=0.
     1125       IF (vars_defined) zx_tmp_fi2d=lwtoa0b(:,15)
     1126       CALL histwrite_phy(o_lwtoa0b2490, zx_tmp_fi2d)
     1127
     1128        zx_tmp_fi2d(:)=0.
     1129       IF (vars_defined) zx_tmp_fi2d=lwtoa0b(:,16)
     1130       CALL histwrite_phy(o_lwtoa0b2800, zx_tmp_fi2d)
     1131
     1132
     1133!       IF (vars_defined) zx_tmp_fi3dsplw=lwtoa0b
     1134!       CALL histwrite_phy(o_lwtoa0b, zx_tmp_fi3dsplw)
    10551135
    10561136
Note: See TracChangeset for help on using the changeset viewer.