Changeset 97 for palm/trunk/SOURCE/time_integration.f90
- Timestamp:
- Jun 21, 2007 8:23:15 AM (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/time_integration.f90
r95 r97 4 4 ! Actual revisions: 5 5 ! ----------------- 6 ! Ghostpoint exchange for salinity and density 6 ! diffusivities is called with argument rho in case of ocean runs, 7 ! new argument pt_/prho_reference in calls of diffusivities, 8 ! ghostpoint exchange for salinity and density 7 9 ! 8 10 ! Former revisions: … … 249 251 CALL cpu_log( log_point(17), 'diffusivities', 'start' ) 250 252 IF ( .NOT. humidity ) THEN 251 CALL diffusivities( pt ) 253 IF ( ocean ) THEN 254 CALL diffusivities( rho, prho_reference ) 255 ELSE 256 CALL diffusivities( pt, pt_reference ) 257 ENDIF 252 258 ELSE 253 CALL diffusivities( vpt )259 CALL diffusivities( vpt, pt_reference ) 254 260 ENDIF 255 261 CALL cpu_log( log_point(17), 'diffusivities', 'stop' )
Note: See TracChangeset
for help on using the changeset viewer.