- Timestamp:
- Oct 19, 2023, 4:02:57 PM (10 months ago)
- Location:
- LMDZ6/branches/LMDZ_ECRad
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/LMDZ_ECRad
- Property svn:mergeinfo changed
-
LMDZ6/branches/LMDZ_ECRad/libf/phylmdiso/isotopes_mod.F90
r4482 r4727 302 302 IF(getKey('Rdefault',Rdefault,isoName)) CALL abort_physic(modname, 'can''t get Rdefault',1) 303 303 IF(getKey('Rmethox', Rmethox, isoName)) CALL abort_physic(modname, 'can''t get Rmethox', 1) 304 IF(.NOT.Rdefault_smow) Rdefault(:) = 0.0 304 305 IF(.NOT.Rdefault_smow) then 306 Rdefault(:) = 0.0 307 if (iso_eau.gt.0) Rdefault(iso_eau) = 1.0 ! correction Camille 30 mars 2023 308 ENDIF 309 write(*,*) 'Rdefault=',Rdefault 305 310 306 311 !--- Sensitivity test: no kinetic effect in sfc evaporation
Note: See TracChangeset
for help on using the changeset viewer.