-
pavans
-
-
OFFLINE
-
Moderator
-
- Posts: 46
- Thank you received: 17
-
-
|
Hello Toby,
I'm sorry but this feature has not been implemented as you say.
You can try the following modification:
go to the subroutine telemac2d.F and replace the FIRST call to cvdftr (the one for the case of coupling with GAIA) with these new lines: IF(DEBUG.GT.0) WRITE(LU,*) 'CALLING CVDFTR SOLSYS=',SOLSYS_GAI
CALL CVDFTR(T%ADR(ITRAC)%P,TTILD%ADR(ITRAC)%P,
& TN%ADR(ITRAC)%P,TSCEXP%ADR(ITRAC)%P,
& DIFT,ICONVFT(ITRAC),.TRUE.,HN_GAI,HOLD,HPROP,
& UCONV_GAI,VCONV_GAI,DM1,ZCONV,SOLSYS_GAI,
& VISCT%ADR(ITRAC)%P,VISC_S,FLUER_ADV,SMH,YASMH,
& FLUDPT_ADV,.TRUE.,AM1,AM2,ZF,
& TBOR%ADR(ITRAC)%P,ATBOR%ADR(ITRAC)%P,
& BTBOR%ADR(ITRAC)%P,IT1,MASKTR,MESH,TB,
& T1,T2,T4,T10,TE1,TE2,TE3,
& KDIR,KDDL,
! BILAN
& DT,ENTET,TETAT,1.D0,INFOGT,.TRUE.,
& OPTADV_TR(ITRAC),1,OPDTRA,OPTBAN,
& MSK,MASKEL,MASKPT,MBOR,S,MASSOU(ITRAC),
! OPTSOU=1 FOR SEDIMENTS
& 1,SLVTRA(ITRAC),FLBOR,VOLU2D,V2DPAR,UNSV2D,
& 2,FLBORTRA,FLULIM_GAI,YAFLULIM_GAI,
& FLULIM_GAI,.FALSE.,
& DIRFLU,RAIN,PLUIE,TRAIN(ITRAC),
& FLULIM_GAI,.FALSE.,MAXADV,TB2,NCO_DIST,NSP_DIST)
IF(DEBUG.GT.0) WRITE(LU,*) 'BACK FROM CVDFTR'
What is different: TSCEXP%ADR(ITRAC)%P,SMH and YASMH (variables necessary for sources) are now included in the call.
This should be enough.
Hope it helps,
Sara
|