Changeset 3891 for LMDZ6/branches/LMDZ-tracers/libf/phylmd/phyetat0.F90
- Timestamp:
- May 11, 2021, 2:10:34 PM (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/LMDZ-tracers/libf/phylmd/phyetat0.F90
r3852 r3891 443 443 !! iiq=niadv(it+2) ! jyg 444 444 iiq=niadv(it+nqo) ! jyg 445 found=phyetat0_get(1,trs(:,it),"trs_"// tracers(iiq)%name, &446 "Surf trac"// tracers(iiq)%name,0.)445 found=phyetat0_get(1,trs(:,it),"trs_"//TRIM(tracers(iiq)%name), & 446 "Surf trac"//TRIM(tracers(iiq)%name),0.) 447 447 ENDDO 448 448 CALL traclmdz_from_restart(trs) … … 591 591 CALL get_field(name, field, found) 592 592 IF (.NOT. found) THEN 593 WRITE(lunout,*) "phyetat0: Le champ <", name,"> est absent"593 WRITE(lunout,*) "phyetat0: Le champ <",TRIM(name),"> est absent" 594 594 WRITE(lunout,*) "Depart legerement fausse. Mais je continue" 595 595 field(:,:)=default 596 596 ENDIF 597 WRITE(lunout,*) name, descr, MINval(field),MAXval(field)597 WRITE(lunout,*) TRIM(name), descr, MINval(field),MAXval(field) 598 598 phyetat0_get=found 599 599
Note: See TracChangeset
for help on using the changeset viewer.