Changeset 3106 for trunk/LMDZ.MARS/libf


Ignore:
Timestamp:
Oct 26, 2023, 11:30:35 AM (16 months ago)
Author:
jbclement
Message:

PEM:

  • Correction of a bug when running with ifort, XIOS and no sub-slopes. If compiled with ifort, the 'Reshape' program cashed because of sub-slopes variables were written in the XIOS output but not filled. A new file definition without sub-slopes can be chosen in the xml file to avoid this issue.
  • Addition in the 'Reshape' program of a check to remove the output files if they exist to prevent a crash.

JBC

Location:
trunk/LMDZ.MARS/libf/phymars
Files:
2 edited

Legend:

Unmodified
Added
Removed

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

    r3098 r3106  
    38903890        ENDDO
    38913891
     3892      CALL write_output("Waterdensity_soil",
     3893     &     "rhowater_soil",'kg.m-3',
     3894     &     rhowater_soil(:,:,iflat))
     3895      CALL write_output("Waterdensity_surface",
     3896     &     "rhowater_surface",'kg.m-3',
     3897     &     rhowater_surf(:,iflat))
    38923898      DO islope = 1,nslope
    38933899        write(str2(1:2),'(i2.2)') islope

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

    r3098 r3106  
    10781078c             pdqsdif > 0 : ice condensing
    10791079c             pdqsdif < 0 : ice subliming
    1080              write(*,*) "subliming more than available frost:  qsurf!"
     1080c             write(*,*) "subliming more than available frost:  qsurf!"
    10811081                  zdqsdif(ig)=
    10821082     &                        -zqsurf(ig)/subtimestep
Note: See TracChangeset for help on using the changeset viewer.