Changeset 2740 for trunk/LMDZ.MARS/libf


Ignore:
Timestamp:
Jul 1, 2022, 5:45:27 PM (2 years ago)
Author:
emillour
Message:

Mars GCM:
Fix a bug I introduced in r2681 (19/05/2022): surface tracers should only be
initialized to zero if not found in the startfi.nc file.
EM

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.MARS/libf/phymars/phyetat0_mod.F90

    r2681 r2740  
    565565         write(*,*) "phyetat0: Failed loading <",trim(txt),">"
    566566         write(*,*) "         ",trim(txt)," is set to zero"
     567         qsurf(:,iq)=0.
    567568       endif
    568        qsurf(:,iq)=0.
    569569    else
    570570      qsurf(:,iq)=0.
Note: See TracChangeset for help on using the changeset viewer.