Changeset 3107 for trunk/LMDZ.MARS/libf/phymars

Timestamp:

Oct 26, 2023, 11:57:47 AM (14 months ago)

Author:

jbclement

Message:

Mars PCM:
Few small fixes following r3098.
JBC

File:

• trunk/LMDZ.MARS/libf/phymars/vdifc_mod.F (modified) (2 diffs)

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

@@ -1110 +1110 @@
               ENDIF
               call write_output('zdqsdif_ssi_frost',
-     &                '','',zdqsdif_ssi_frost(ig,1))
+     &                'Flux between frost and subsurface','kg.m-2.s-1',
+     &                zdqsdif_ssi_frost(ig,1))
               call write_output('subtimestep',
-     &                '','',subtimestep)
+     &                'vdifc substimestep length','s',subtimestep)
              ! ENDDO !subsurface ice subslope
 
@@ -1284 +1285 @@
 
          call write_output("surf_h2o_lh",
-     &                          "Ground ice latent heat flux",
-     &                               "W.m-2",surf_h2o_lh(:,iflat))
-                       call write_output('zdq_subtimestep',
-     &                '','',zdqsdif(:)*subtimestep)
-                       call write_output('zdq_end',
-     &                '','',zdqsdif(:))
-                       call write_output('vdifc_subtimestep',
-     &                '','',subtimestep)
+     &                     "Ground ice latent heat flux",
+     &                     "W.m-2",surf_h2o_lh(:,iflat))
+         call write_output('zdq_subtimestep',
+     &                     'Actual flux zdqsdif*subtimestep',
+     &                     'kg.m-2',zdqsdif(:)*subtimestep)
+         call write_output('zdq_end',
+     &                     'Flux after all contributions',
+     &                     'kg.m-2.s-1',zdqsdif(:))
 C       Diagnostic output for HDO
 !        if (hdo) then