Changeset 3107


Ignore:
Timestamp:
Oct 26, 2023, 11:57:47 AM (13 months ago)
Author:
jbclement
Message:

Mars PCM:
Few small fixes following r3098.
JBC

Location:
trunk/LMDZ.MARS
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.MARS/changelog.txt

    r3098 r3107  
    42734273Prettyfied solarlong.F and made it a module. Likewise for conf_phys.F
    42744274
     4275Some code tidying:
     4276Made pi in module comcstfi_h a parameter (and not a variable recomputed at
     4277various points by various routines) and added module routine init_comcstfi_h
     4278to cleanly initialize module variables.
     4279Moved iniorbit.F to be a module routine of planete_h since it initializes
     4280(some of ) the module variables it contains.
     4281
    42754282== 23/10/2023 == EV
    42764283We added the to module vdifc the possibily of subsurface intercation, mostly to have the option of buried glaicer that can lose ice and create polar layers.
    … …  
    42884295qeq, SSI water vapor quantity
    42894296
    4290 
    4291 Some code tidying:
    4292 Made pi in module comcstfi_h a parameter (and not a variable recomputed at
    4293 various points by various routines) and added module routine init_comcstfi_h
    4294 to cleanly initialize module variables.
    4295 Moved iniorbit.F to be a module routine of planete_h since it initializes
    4296 (some of ) the module variables it contains.
     4297== 26/10/2023 == JBC
     4298Few small fixes following r3098.

  • trunk/LMDZ.MARS/deftank/field_def_physics_mars.xml

    r3052 r3107  
    293293
    294294            <field id="fluxtop_lw"
    295                    long_name="Longwave radiation to space at the top of the atmosphere"
     295                   long_name="Longwave radiation at the top of the atmosphere"
    296296                   unit="W.m-2" />
    297297            <field id="fluxtop_dn_sw"
    298                    long_name="Incoming Solar radiative flux from space"
     298                   long_name="Incoming shortwave radiation at the top of the atmosphere"
    299299                   unit="W.m-2" />
    300300            <field id="fluxtop_up_sw"
    301                    long_name="Outgoing Solar radiative flux to space"
     301                   long_name="Upward shortwave radiation at the top of the atmosphere"
    302302                   unit="W.m-2" />
    303303
    … …  
    325325            <field id="fluxsurf_dn_sw_slope07"
    326326                   long_name="Incoming shortwave radiation at the surface on slope 07" 
    327                    unit="W.m-2" />
    328             <field id="fluxtop_up_sw"
    329                    long_name="Upward shortwave radiation at the top of the atmosphere"
    330327                   unit="W.m-2" />
    331328           
    … …  
    12091206                   long_name="Waterdensity_soil of slope 07"
    12101207                   unit="kg.m-3" />
     1208            <field id="zdqsdif_ssi_frost"
     1209                   long_name="Flux between frost and subsurface"
     1210                   unit="kg.m-2.s-1" />
     1211            <field id="subtimestep"
     1212                   long_name="vdifc substimestep length"
     1213                   unit="s" />
     1214            <field id="zdq_subtimestep"
     1215                   long_name="Actual flux zdqsdif*subtimestep"
     1216                   unit="kg.m-2" />
     1217            <field id="zdq_end"
     1218                   long_name="Flux after all contributions"
     1219                   unit="kg.m-2.s-1" />
    12111220
    12121221        </field_group>

  • trunk/LMDZ.MARS/libf/phymars/vdifc_mod.F

    r3106 r3107  
    11101110              ENDIF
    11111111              call write_output('zdqsdif_ssi_frost',
    1112      &                '','',zdqsdif_ssi_frost(ig,1))
     1112     &                'Flux between frost and subsurface','kg.m-2.s-1',
     1113     &                zdqsdif_ssi_frost(ig,1))
    11131114              call write_output('subtimestep',
    1114      &                '','',subtimestep)
     1115     &                'vdifc substimestep length','s',subtimestep)
    11151116             ! ENDDO !subsurface ice subslope
    11161117
    … …  
    12841285
    12851286         call write_output("surf_h2o_lh",
    1286      &                          "Ground ice latent heat flux",
    1287      &                               "W.m-2",surf_h2o_lh(:,iflat))
    1288                        call write_output('zdq_subtimestep',
    1289      &                '','',zdqsdif(:)*subtimestep)
    1290                        call write_output('zdq_end',
    1291      &                '','',zdqsdif(:))
    1292                        call write_output('vdifc_subtimestep',
    1293      &                '','',subtimestep)
     1287     &                     "Ground ice latent heat flux",
     1288     &                     "W.m-2",surf_h2o_lh(:,iflat))
     1289         call write_output('zdq_subtimestep',
     1290     &                     'Actual flux zdqsdif*subtimestep',
     1291     &                     'kg.m-2',zdqsdif(:)*subtimestep)
     1292         call write_output('zdq_end',
     1293     &                     'Flux after all contributions',
     1294     &                     'kg.m-2.s-1',zdqsdif(:))
    12941295C       Diagnostic output for HDO
    12951296!        if (hdo) then
Note: See TracChangeset for help on using the changeset viewer.