Changeset 1239 for palm/trunk/SOURCE/header.f90
- Timestamp:
- Oct 29, 2013 10:11:53 AM (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/header.f90
r1217 r1239 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! 22 ! output for nudging + large scale forcing from external file 23 23 ! 24 24 ! Former revisions: … … 428 428 WRITE ( io, 154 ) 429 429 ENDIF 430 IF ( nudging ) THEN 431 WRITE ( io, 155 ) 432 WRITE ( io, 156 ) 433 ENDIF 434 IF ( large_scale_forcing ) THEN 435 WRITE ( io, 157 ) 436 WRITE ( io, 158 ) 437 ENDIF 430 438 WRITE ( io, 99 ) 431 439 … … 706 714 WRITE ( io, 303 ) 707 715 IF ( constant_heatflux ) THEN 708 WRITE ( io, 306 ) surface_heatflux 716 IF ( large_scale_forcing .AND. lsf_surf ) THEN 717 WRITE ( io, 306 ) shf(0,0) 718 ELSE 719 WRITE ( io, 306 ) surface_heatflux 720 ENDIF 709 721 IF ( random_heatflux ) WRITE ( io, 307 ) 710 722 ENDIF 711 723 IF ( humidity .AND. constant_waterflux ) THEN 712 WRITE ( io, 311 ) surface_waterflux 724 IF ( large_scale_forcing .AND. lsf_surf ) THEN 725 WRITE ( io, 311 ) qsws(0,0) 726 ELSE 727 WRITE ( io, 311 ) surface_waterflux 728 ENDIF 713 729 ENDIF 714 730 IF ( passive_scalar .AND. constant_waterflux ) THEN … … 1288 1304 ENDDO 1289 1305 1290 WRITE ( io, 423 ) TRIM( coordinates ), TRIM( ugcomponent ), & 1291 TRIM( gradients ), TRIM( slices ) 1306 IF ( .NOT. large_scale_forcing ) THEN 1307 WRITE ( io, 423 ) TRIM( coordinates ), TRIM( ugcomponent ), & 1308 TRIM( gradients ), TRIM( slices ) 1309 ELSE 1310 WRITE ( io, 429 ) 1311 ENDIF 1292 1312 1293 1313 !-- Profile of the geostrophic wind (component vg) … … 1320 1340 ENDDO 1321 1341 1322 WRITE ( io, 424 ) TRIM( coordinates ), TRIM( vgcomponent ), & 1323 TRIM( gradients ), TRIM( slices ) 1342 IF ( .NOT. large_scale_forcing ) THEN 1343 WRITE ( io, 424 ) TRIM( coordinates ), TRIM( vgcomponent ), & 1344 TRIM( gradients ), TRIM( slices ) 1345 ENDIF 1324 1346 1325 1347 ! … … 1357 1379 ENDDO 1358 1380 1359 WRITE ( io, 420 ) TRIM( coordinates ), TRIM( temperatures ), & 1360 TRIM( gradients ), TRIM( slices ) 1381 IF ( .NOT. nudging ) THEN 1382 WRITE ( io, 420 ) TRIM( coordinates ), TRIM( temperatures ), & 1383 TRIM( gradients ), TRIM( slices ) 1384 ELSE 1385 WRITE ( io, 428 ) 1386 ENDIF 1361 1387 1362 1388 ! … … 1392 1418 1393 1419 IF ( humidity ) THEN 1394 WRITE ( io, 421 ) TRIM( coordinates ), TRIM( temperatures ), & 1395 TRIM( gradients ), TRIM( slices ) 1420 IF ( .NOT. nudging ) THEN 1421 WRITE ( io, 421 ) TRIM( coordinates ), TRIM( temperatures ), & 1422 TRIM( gradients ), TRIM( slices ) 1423 ENDIF 1396 1424 ELSE 1397 1425 WRITE ( io, 422 ) TRIM( coordinates ), TRIM( temperatures ), & … … 1705 1733 'prognostic equation for') 1706 1734 154 FORMAT (' the potential temperature') 1735 155 FORMAT (' --> Nudging is used - initial profiles for u, v, pt and q ',& 1736 'correspond to the') 1737 156 FORMAT (' first profiles in NUDGING_DATA') 1738 157 FORMAT (' --> Large scale forcing from external file (LSF_DATA) is used: ') 1739 158 FORMAT (' prescribed surfaces fluxes and geostrophic wind components') 1707 1740 200 FORMAT (//' Run time and time step information:'/ & 1708 1741 ' ----------------------------------'/) … … 1957 1990 427 FORMAT (/' Initial wind profiles (u,v) are interpolated from given'// & 1958 1991 ' profiles') 1992 428 FORMAT (/' Initial profiles (u, v, pt, q) are taken from file '/ & 1993 ' NUDGING_DATA') 1994 429 FORMAT (/' Geostrophic wind profiles (ug, vg) are are taken from file '/ & 1995 ' LSF_DATA_DATA') 1959 1996 430 FORMAT (//' Cloud physics quantities / methods:'/ & 1960 1997 ' ----------------------------------'/)
Note: See TracChangeset
for help on using the changeset viewer.