Context Navigation

← Previous Change
Next Change →

Changeset 4368 for LMDZ6/branches/Ocean_skin/libf/phylmd/StratAer/nucleation_tstep_mod.F90

Timestamp:

Dec 6, 2022, 12:01:16 AM (2 years ago)

Author:

lguez

Message:

Sync latest trunk changes to Ocean_skin

Location:

LMDZ6/branches/Ocean_skin

Files:

: 2 edited

. (modified) (1 prop)
libf/phylmd/StratAer/nucleation_tstep_mod.F90 (modified) (1 diff)

Legend:

: Unmodified
: Added
: Removed

LMDZ6/branches/Ocean_skin

Property svn:mergeinfo changed

merged: 4014-4017,4019,4026-4042,4045-4052,4054-4078,4082-4096,4098-4100,4102-4106,4109-4110,4112-4127,4129-4131,4133,4136,4138-4140,4142-4149,4153-4165,4167-4170,4172,4176,4184,4186-4187,4189-4191,4193-4195,4199,4224-4234,4236,4240-4266,4268,4270-4285,4287-4298,4300-4303,4305,4318-4319,4325-4328,4332-4334,4348-4352,4354,4356-4359,4361-4363,4365

LMDZ6/branches/Ocean_skin/libf/phylmd/StratAer/nucleation_tstep_mod.F90

r3798	r4368
604	604	na_n=x_n*ntot_n
605	605	IF (na_n .LT. 1.) THEN
606		print *, 'Warning: number of acid molecules < 1 in nucleation regime, setting na_n=1'
	606	! print *, 'Warning: number of acid molecules < 1 in nucleation regime, setting na_n=1'
607	607	na_n=1.0
608	608	ENDIF

Note: See TracChangeset for help on using the changeset viewer.

Download in other formats: