Changeset 2039 for trunk/MESOSCALE/LMD_MM_MARS
- Timestamp:
- Nov 12, 2018, 8:31:33 PM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/dyn_em/module_initialize_real.F
r2021 r2039 1418 1418 #endif 1419 1419 1420 !VENUS photochemistry 1421 if ( config_flags%mars == 34 ) then 1422 print*,'grid%em_qco2_gc',grid%em_qco2_gc(0,:,0) 1423 CALL vert_interp_old ( grid%em_qco2_gc , grid%em_pd_gc , scalar(:,:,:,2) , grid%em_pb , & 1424 num_metgrid_levels , 'Q' , & 1425 interp_type , lagrange_order , lowest_lev_from_sfc , & 1426 zap_close_levels , force_sfc_in_vinterp , & 1427 ids , ide , jds , jde , kds , kde , & 1428 ims , ime , jms , jme , kms , kme , & 1429 its , ite , jts , jte , kts , kte ) 1430 1431 CALL vert_interp_old ( grid%em_qco_gc , grid%em_pd_gc , scalar(:,:,:,3), grid%em_pb , & 1432 num_metgrid_levels , 'Q' , & 1433 interp_type , lagrange_order ,lowest_lev_from_sfc , & 1434 zap_close_levels , force_sfc_in_vinterp , & 1435 ids , ide , jds , jde , kds , kde , & 1436 ims , ime , jms , jme , kms , kme , & 1437 its , ite , jts , jte , kts , kte ) 1438 1439 CALL vert_interp_old ( grid%em_qh2_gc , grid%em_pd_gc , scalar(:,:,:,4),grid%em_pb , & 1440 num_metgrid_levels , 'Q' , & 1441 interp_type , lagrange_order,lowest_lev_from_sfc , & 1442 zap_close_levels , force_sfc_in_vinterp , & 1443 ids , ide , jds , jde , kds , kde , & 1444 ims , ime , jms , jme , kms , kme , & 1445 its , ite , jts , jte , kts , kte ) 1446 1447 CALL vert_interp_old ( grid%em_qh2o_gc , grid%em_pd_gc , scalar(:,:,:,5),grid%em_pb , & 1448 num_metgrid_levels , 'Q' , & 1449 interp_type , lagrange_order,lowest_lev_from_sfc , & 1450 zap_close_levels , force_sfc_in_vinterp , & 1451 ids , ide , jds , jde , kds , kde , & 1452 ims , ime , jms , jme , kms , kme , & 1453 its , ite , jts , jte , kts , kte ) 1454 1455 CALL vert_interp_old ( grid%em_qo1d_gc , grid%em_pd_gc , scalar(:,:,:,6),grid%em_pb , & 1456 num_metgrid_levels , 'Q' , & 1457 interp_type , lagrange_order,lowest_lev_from_sfc , & 1458 zap_close_levels , force_sfc_in_vinterp , & 1459 ids , ide , jds , jde , kds , kde , & 1460 ims , ime , jms , jme , kms , kme , & 1461 its , ite , jts , jte , kts , kte ) 1462 1463 CALL vert_interp_old ( grid%em_qo_gc , grid%em_pd_gc , scalar(:,:,:,7),grid%em_pb , & 1464 num_metgrid_levels , 'Q' , & 1465 interp_type , lagrange_order,lowest_lev_from_sfc , & 1466 zap_close_levels , force_sfc_in_vinterp , & 1467 ids , ide , jds , jde , kds , kde , & 1468 ims , ime , jms , jme , kms , kme , & 1469 its , ite , jts , jte , kts , kte ) 1470 1471 CALL vert_interp_old ( grid%em_qo2_gc , grid%em_pd_gc , scalar(:,:,:,8),grid%em_pb , & 1472 num_metgrid_levels , 'Q' , & 1473 interp_type , lagrange_order,lowest_lev_from_sfc , & 1474 zap_close_levels , force_sfc_in_vinterp , & 1475 ids , ide , jds , jde , kds , kde , & 1476 ims , ime , jms , jme , kms , kme , & 1477 its , ite , jts , jte , kts , kte ) 1478 1479 CALL vert_interp_old ( grid%em_qo2dg_gc , grid%em_pd_gc , scalar(:,:,:,9),grid%em_pb , & 1480 num_metgrid_levels , 'Q' , & 1481 interp_type , lagrange_order,lowest_lev_from_sfc , & 1482 zap_close_levels , force_sfc_in_vinterp , & 1483 ids , ide , jds , jde , kds , kde , & 1484 ims , ime , jms , jme , kms , kme , & 1485 its , ite , jts , jte , kts , kte ) 1486 1487 CALL vert_interp_old ( grid%em_qo3_gc , grid%em_pd_gc , scalar(:,:,:,10),grid%em_pb , & 1488 num_metgrid_levels , 'Q' , & 1489 interp_type , lagrange_order,lowest_lev_from_sfc , & 1490 zap_close_levels , force_sfc_in_vinterp , & 1491 ids , ide , jds , jde , kds , kde , & 1492 ims , ime , jms , jme , kms , kme , & 1493 its , ite , jts , jte , kts , kte ) 1494 1495 CALL vert_interp_old ( grid%em_qh_gc , grid%em_pd_gc , scalar(:,:,:,11),grid%em_pb , & 1496 num_metgrid_levels , 'Q' , & 1497 interp_type , lagrange_order,lowest_lev_from_sfc , & 1498 zap_close_levels , force_sfc_in_vinterp , & 1499 ids , ide , jds , jde , kds , kde , & 1500 ims , ime , jms , jme , kms , kme , & 1501 its , ite , jts , jte , kts , kte ) 1502 1503 CALL vert_interp_old ( grid%em_qoh_gc , grid%em_pd_gc , scalar(:,:,:,12), grid%em_pb , & 1504 num_metgrid_levels , 'Q' , & 1505 interp_type , lagrange_order,lowest_lev_from_sfc , & 1506 zap_close_levels , force_sfc_in_vinterp , & 1507 ids , ide , jds , jde , kds , kde , & 1508 ims , ime , jms , jme , kms , kme , & 1509 its , ite , jts , jte , kts , kte ) 1510 1511 CALL vert_interp_old ( grid%em_qho2_gc , grid%em_pd_gc , scalar(:,:,:,13),grid%em_pb , & 1512 num_metgrid_levels , 'Q' , & 1513 interp_type , lagrange_order,lowest_lev_from_sfc , & 1514 zap_close_levels , force_sfc_in_vinterp , & 1515 ids , ide , jds , jde , kds , kde , & 1516 ims , ime , jms , jme , kms , kme , & 1517 its , ite , jts , jte , kts , kte ) 1518 1519 CALL vert_interp_old ( grid%em_qh2o2_gc , grid%em_pd_gc , scalar(:,:,:,14),grid%em_pb , & 1520 num_metgrid_levels , 'Q' , & 1521 interp_type , lagrange_order,lowest_lev_from_sfc , & 1522 zap_close_levels , force_sfc_in_vinterp , & 1523 ids , ide , jds , jde , kds , kde , & 1524 ims , ime , jms , jme , kms , kme , & 1525 its , ite , jts , jte , kts , kte ) 1526 1527 CALL vert_interp_old ( grid%em_qcl_gc , grid%em_pd_gc , scalar(:,:,:,15),grid%em_pb , & 1528 num_metgrid_levels , 'Q' , & 1529 interp_type , lagrange_order ,lowest_lev_from_sfc , & 1530 zap_close_levels , force_sfc_in_vinterp , & 1531 ids , ide , jds , jde , kds , kde , & 1532 ims , ime , jms , jme , kms , kme , & 1533 its , ite , jts , jte , kts , kte ) 1534 1535 CALL vert_interp_old ( grid%em_qclo_gc , grid%em_pd_gc , scalar(:,:,:,16),grid%em_pb , & 1536 num_metgrid_levels , 'Q' , & 1537 interp_type , lagrange_order,lowest_lev_from_sfc , & 1538 zap_close_levels , force_sfc_in_vinterp , & 1539 ids , ide , jds , jde , kds , kde , & 1540 ims , ime , jms , jme , kms , kme , & 1541 its , ite , jts , jte , kts , kte ) 1542 1543 CALL vert_interp_old ( grid%em_qcl2_gc , grid%em_pd_gc , scalar(:,:,:,17),grid%em_pb , & 1544 num_metgrid_levels , 'Q' , & 1545 interp_type , lagrange_order,lowest_lev_from_sfc , & 1546 zap_close_levels , force_sfc_in_vinterp , & 1547 ids , ide , jds , jde , kds , kde , & 1548 ims , ime , jms , jme , kms , kme , & 1549 its , ite , jts , jte , kts , kte ) 1550 1551 CALL vert_interp_old ( grid%em_qhcl_gc , grid%em_pd_gc , scalar(:,:,:,18),grid%em_pb , & 1552 num_metgrid_levels , 'Q' , & 1553 interp_type , lagrange_order,lowest_lev_from_sfc , & 1554 zap_close_levels , force_sfc_in_vinterp , & 1555 ids , ide , jds , jde , kds , kde , & 1556 ims , ime , jms , jme , kms , kme , & 1557 its , ite , jts , jte , kts , kte ) 1558 1559 CALL vert_interp_old ( grid%em_qhocl_gc , grid%em_pd_gc , scalar(:,:,:,19),grid%em_pb , & 1560 num_metgrid_levels , 'Q' , & 1561 interp_type , lagrange_order,lowest_lev_from_sfc , & 1562 zap_close_levels , force_sfc_in_vinterp , & 1563 ids , ide , jds , jde , kds , kde , & 1564 ims , ime , jms , jme , kms , kme , & 1565 its , ite , jts , jte , kts , kte ) 1566 1567 CALL vert_interp_old ( grid%em_qclco_gc , grid%em_pd_gc , scalar(:,:,:,20),grid%em_pb , & 1568 num_metgrid_levels , 'Q' , & 1569 interp_type , lagrange_order,lowest_lev_from_sfc , & 1570 zap_close_levels , force_sfc_in_vinterp , & 1571 ids , ide , jds , jde , kds , kde , & 1572 ims , ime , jms , jme , kms , kme , & 1573 its , ite , jts , jte , kts , kte ) 1574 1575 CALL vert_interp_old ( grid%em_qclco3_gc , grid%em_pd_gc , scalar(:,:,:,21),grid%em_pb , & 1576 num_metgrid_levels , 'Q' , & 1577 interp_type , lagrange_order,lowest_lev_from_sfc , & 1578 zap_close_levels , force_sfc_in_vinterp , & 1579 ids , ide , jds , jde , kds , kde , & 1580 ims , ime , jms , jme , kms , kme , & 1581 its , ite , jts , jte , kts , kte ) 1582 1583 CALL vert_interp_old ( grid%em_qcocl2_gc , grid%em_pd_gc , scalar(:,:,:,22),grid%em_pb , & 1584 num_metgrid_levels , 'Q' , & 1585 interp_type , lagrange_order,lowest_lev_from_sfc , & 1586 zap_close_levels , force_sfc_in_vinterp , & 1587 ids , ide , jds , jde , kds , kde , & 1588 ims , ime , jms , jme , kms , kme , & 1589 its , ite , jts , jte , kts , kte ) 1590 1591 CALL vert_interp_old ( grid%em_qs_gc , grid%em_pd_gc , scalar(:,:,:,23), grid%em_pb , & 1592 num_metgrid_levels , 'Q' , & 1593 interp_type , lagrange_order ,lowest_lev_from_sfc , & 1594 zap_close_levels , force_sfc_in_vinterp , & 1595 ids , ide , jds , jde , kds , kde , & 1596 ims , ime , jms , jme , kms , kme , & 1597 its , ite , jts , jte , kts , kte ) 1598 1599 CALL vert_interp_old ( grid%em_qso_gc , grid%em_pd_gc , scalar(:,:,:,24),grid%em_pb , & 1600 num_metgrid_levels , 'Q' , & 1601 interp_type , lagrange_order,lowest_lev_from_sfc , & 1602 zap_close_levels , force_sfc_in_vinterp , & 1603 ids , ide , jds , jde , kds , kde , & 1604 ims , ime , jms , jme , kms , kme , & 1605 its , ite , jts , jte , kts , kte ) 1606 1607 CALL vert_interp_old ( grid%em_qso2_gc , grid%em_pd_gc , scalar(:,:,:,25), grid%em_pb , & 1608 num_metgrid_levels , 'Q' , & 1609 interp_type , lagrange_order ,lowest_lev_from_sfc , & 1610 zap_close_levels , force_sfc_in_vinterp , & 1611 ids , ide , jds , jde , kds , kde , & 1612 ims , ime , jms , jme , kms , kme , & 1613 its , ite , jts , jte , kts , kte ) 1614 1615 CALL vert_interp_old ( grid%em_qo3_gc , grid%em_pd_gc , scalar(:,:,:,26),grid%em_pb , & 1616 num_metgrid_levels , 'Q' , & 1617 interp_type , lagrange_order ,lowest_lev_from_sfc , & 1618 zap_close_levels , force_sfc_in_vinterp , & 1619 ids , ide , jds , jde , kds , kde , & 1620 ims , ime , jms , jme , kms , kme , & 1621 its , ite , jts , jte , kts , kte ) 1622 1623 CALL vert_interp_old ( grid%em_qs2o2_gc , grid%em_pd_gc , scalar(:,:,:,27),grid%em_pb , & 1624 num_metgrid_levels , 'Q' , & 1625 interp_type , lagrange_order,lowest_lev_from_sfc , & 1626 zap_close_levels , force_sfc_in_vinterp , & 1627 ids , ide , jds , jde , kds , kde , & 1628 ims , ime , jms , jme , kms , kme , & 1629 its , ite , jts , jte , kts , kte ) 1630 1631 CALL vert_interp_old ( grid%em_qocs_gc , grid%em_pd_gc , scalar(:,:,:,28),grid%em_pb , & 1632 num_metgrid_levels , 'Q' , & 1633 interp_type , lagrange_order,lowest_lev_from_sfc , & 1634 zap_close_levels , force_sfc_in_vinterp , & 1635 ids , ide , jds , jde , kds , kde , & 1636 ims , ime , jms , jme , kms , kme , & 1637 its , ite , jts , jte , kts , kte ) 1638 1639 CALL vert_interp_old ( grid%em_qhso3_gc , grid%em_pd_gc , scalar(:,:,:,29),grid%em_pb , & 1640 num_metgrid_levels , 'Q' , & 1641 interp_type , lagrange_order,lowest_lev_from_sfc , & 1642 zap_close_levels , force_sfc_in_vinterp , & 1643 ids , ide , jds , jde , kds , kde , & 1644 ims , ime , jms , jme , kms , kme , & 1645 its , ite , jts , jte , kts , kte ) 1646 1647 CALL vert_interp_old ( grid%em_qh2so4_gc , grid%em_pd_gc , scalar(:,:,:,30),grid%em_pb , & 1648 num_metgrid_levels , 'Q' , & 1649 interp_type , lagrange_order,lowest_lev_from_sfc , & 1650 zap_close_levels , force_sfc_in_vinterp , & 1651 ids , ide , jds , jde , kds , kde , & 1652 ims , ime , jms , jme , kms , kme , & 1653 its , ite , jts , jte , kts , kte ) 1654 1655 CALL vert_interp_old ( grid%em_qs2_gc , grid%em_pd_gc , scalar(:,:,:,31),grid%em_pb , & 1656 num_metgrid_levels , 'Q' , & 1657 interp_type , lagrange_order,lowest_lev_from_sfc , & 1658 zap_close_levels , force_sfc_in_vinterp , & 1659 ids , ide , jds , jde , kds , kde , & 1660 ims , ime , jms , jme , kms , kme , & 1661 its , ite , jts , jte , kts , kte ) 1662 1663 CALL vert_interp_old ( grid%em_qclso2_gc , grid%em_pd_gc , scalar(:,:,:,32),grid%em_pb , & 1664 num_metgrid_levels , 'Q' , & 1665 interp_type , lagrange_order,lowest_lev_from_sfc , & 1666 zap_close_levels , force_sfc_in_vinterp , & 1667 ids , ide , jds , jde , kds , kde , & 1668 ims , ime , jms , jme , kms , kme , & 1669 its , ite , jts , jte , kts , kte ) 1670 1671 CALL vert_interp_old ( grid%em_qoscl_gc , grid%em_pd_gc , scalar(:,:,:,33),grid%em_pb , & 1672 num_metgrid_levels , 'Q' , & 1673 interp_type , lagrange_order,lowest_lev_from_sfc , & 1674 zap_close_levels , force_sfc_in_vinterp , & 1675 ids , ide , jds , jde , kds , kde , & 1676 ims , ime , jms , jme , kms , kme , & 1677 its , ite , jts , jte , kts , kte ) 1678 1679 CALL vert_interp_old ( grid%em_qh2oliq_gc , grid%em_pd_gc , scalar(:,:,:,34),grid%em_pb , & 1680 num_metgrid_levels , 'Q' , & 1681 interp_type , lagrange_order,lowest_lev_from_sfc , & 1682 zap_close_levels , force_sfc_in_vinterp , & 1683 ids , ide , jds , jde , kds , kde , & 1684 ims , ime , jms , jme , kms , kme , & 1685 its , ite , jts , jte , kts , kte ) 1686 1687 CALL vert_interp_old ( grid%em_qh2so4liq_gc , grid%em_pd_gc , scalar(:,:,:,35),grid%em_pb , & 1688 num_metgrid_levels , 'Q' , & 1689 interp_type , lagrange_order,lowest_lev_from_sfc , & 1690 zap_close_levels , force_sfc_in_vinterp , & 1691 ids , ide , jds , jde , kds , kde , & 1692 ims , ime , jms , jme , kms , kme , & 1693 its , ite , jts , jte , kts , kte ) 1694 1695 endif 1420 !#ifdef NEWPHYS 1421 !!VENUS photochemistry 1422 !if ( config_flags%mars == 34 ) then 1423 ! print*,'grid%em_qco2_gc',grid%em_qco2_gc(0,:,0) 1424 ! CALL vert_interp_old ( grid%em_qco2_gc , grid%em_pd_gc , scalar(:,:,:,2) , grid%em_pb , & 1425 ! num_metgrid_levels , 'Q' , & 1426 ! interp_type , lagrange_order , lowest_lev_from_sfc , & 1427 ! zap_close_levels , force_sfc_in_vinterp , & 1428 ! ids , ide , jds , jde , kds , kde , & 1429 ! ims , ime , jms , jme , kms , kme , & 1430 ! its , ite , jts , jte , kts , kte ) 1431 ! 1432 ! CALL vert_interp_old ( grid%em_qco_gc , grid%em_pd_gc , scalar(:,:,:,3), grid%em_pb , & 1433 ! num_metgrid_levels , 'Q' , & 1434 ! interp_type , lagrange_order ,lowest_lev_from_sfc , & 1435 ! zap_close_levels , force_sfc_in_vinterp , & 1436 ! ids , ide , jds , jde , kds , kde , & 1437 ! ims , ime , jms , jme , kms , kme , & 1438 ! its , ite , jts , jte , kts , kte ) 1439 ! 1440 ! CALL vert_interp_old ( grid%em_qh2_gc , grid%em_pd_gc , scalar(:,:,:,4),grid%em_pb , & 1441 ! num_metgrid_levels , 'Q' , & 1442 ! interp_type , lagrange_order,lowest_lev_from_sfc , & 1443 ! zap_close_levels , force_sfc_in_vinterp , & 1444 ! ids , ide , jds , jde , kds , kde , & 1445 ! ims , ime , jms , jme , kms , kme , & 1446 ! its , ite , jts , jte , kts , kte ) 1447 ! 1448 ! CALL vert_interp_old ( grid%em_qh2o_gc , grid%em_pd_gc , scalar(:,:,:,5),grid%em_pb , & 1449 ! num_metgrid_levels , 'Q' , & 1450 ! interp_type , lagrange_order,lowest_lev_from_sfc , & 1451 ! zap_close_levels , force_sfc_in_vinterp , & 1452 ! ids , ide , jds , jde , kds , kde , & 1453 ! ims , ime , jms , jme , kms , kme , & 1454 ! its , ite , jts , jte , kts , kte ) 1455 ! 1456 ! CALL vert_interp_old ( grid%em_qo1d_gc , grid%em_pd_gc , scalar(:,:,:,6),grid%em_pb , & 1457 ! num_metgrid_levels , 'Q' , & 1458 ! interp_type , lagrange_order,lowest_lev_from_sfc , & 1459 ! zap_close_levels , force_sfc_in_vinterp , & 1460 ! ids , ide , jds , jde , kds , kde , & 1461 ! ims , ime , jms , jme , kms , kme , & 1462 ! its , ite , jts , jte , kts , kte ) 1463 ! 1464 ! CALL vert_interp_old ( grid%em_qo_gc , grid%em_pd_gc , scalar(:,:,:,7),grid%em_pb , & 1465 ! num_metgrid_levels , 'Q' , & 1466 ! interp_type , lagrange_order,lowest_lev_from_sfc , & 1467 ! zap_close_levels , force_sfc_in_vinterp , & 1468 ! ids , ide , jds , jde , kds , kde , & 1469 ! ims , ime , jms , jme , kms , kme , & 1470 ! its , ite , jts , jte , kts , kte ) 1471 ! 1472 ! CALL vert_interp_old ( grid%em_qo2_gc , grid%em_pd_gc , scalar(:,:,:,8),grid%em_pb , & 1473 ! num_metgrid_levels , 'Q' , & 1474 ! interp_type , lagrange_order,lowest_lev_from_sfc , & 1475 ! zap_close_levels , force_sfc_in_vinterp , & 1476 ! ids , ide , jds , jde , kds , kde , & 1477 ! ims , ime , jms , jme , kms , kme , & 1478 ! its , ite , jts , jte , kts , kte ) 1479 ! 1480 ! CALL vert_interp_old ( grid%em_qo2dg_gc , grid%em_pd_gc , scalar(:,:,:,9),grid%em_pb , & 1481 ! num_metgrid_levels , 'Q' , & 1482 ! interp_type , lagrange_order,lowest_lev_from_sfc , & 1483 ! zap_close_levels , force_sfc_in_vinterp , & 1484 ! ids , ide , jds , jde , kds , kde , & 1485 ! ims , ime , jms , jme , kms , kme , & 1486 ! its , ite , jts , jte , kts , kte ) 1487 ! 1488 ! CALL vert_interp_old ( grid%em_qo3_gc , grid%em_pd_gc , scalar(:,:,:,10),grid%em_pb , & 1489 ! num_metgrid_levels , 'Q' , & 1490 ! interp_type , lagrange_order,lowest_lev_from_sfc , & 1491 ! zap_close_levels , force_sfc_in_vinterp , & 1492 ! ids , ide , jds , jde , kds , kde , & 1493 ! ims , ime , jms , jme , kms , kme , & 1494 ! its , ite , jts , jte , kts , kte ) 1495 ! 1496 ! CALL vert_interp_old ( grid%em_qh_gc , grid%em_pd_gc , scalar(:,:,:,11),grid%em_pb , & 1497 ! num_metgrid_levels , 'Q' , & 1498 ! interp_type , lagrange_order,lowest_lev_from_sfc , & 1499 ! zap_close_levels , force_sfc_in_vinterp , & 1500 ! ids , ide , jds , jde , kds , kde , & 1501 ! ims , ime , jms , jme , kms , kme , & 1502 ! its , ite , jts , jte , kts , kte ) 1503 ! 1504 ! CALL vert_interp_old ( grid%em_qoh_gc , grid%em_pd_gc , scalar(:,:,:,12), grid%em_pb , & 1505 ! num_metgrid_levels , 'Q' , & 1506 ! interp_type , lagrange_order,lowest_lev_from_sfc , & 1507 ! zap_close_levels , force_sfc_in_vinterp , & 1508 ! ids , ide , jds , jde , kds , kde , & 1509 ! ims , ime , jms , jme , kms , kme , & 1510 ! its , ite , jts , jte , kts , kte ) 1511 ! 1512 ! CALL vert_interp_old ( grid%em_qho2_gc , grid%em_pd_gc , scalar(:,:,:,13),grid%em_pb , & 1513 ! num_metgrid_levels , 'Q' , & 1514 ! interp_type , lagrange_order,lowest_lev_from_sfc , & 1515 ! zap_close_levels , force_sfc_in_vinterp , & 1516 ! ids , ide , jds , jde , kds , kde , & 1517 ! ims , ime , jms , jme , kms , kme , & 1518 ! its , ite , jts , jte , kts , kte ) 1519 ! 1520 ! CALL vert_interp_old ( grid%em_qh2o2_gc , grid%em_pd_gc , scalar(:,:,:,14),grid%em_pb , & 1521 ! num_metgrid_levels , 'Q' , & 1522 ! interp_type , lagrange_order,lowest_lev_from_sfc , & 1523 ! zap_close_levels , force_sfc_in_vinterp , & 1524 ! ids , ide , jds , jde , kds , kde , & 1525 ! ims , ime , jms , jme , kms , kme , & 1526 ! its , ite , jts , jte , kts , kte ) 1527 ! 1528 ! CALL vert_interp_old ( grid%em_qcl_gc , grid%em_pd_gc , scalar(:,:,:,15),grid%em_pb , & 1529 ! num_metgrid_levels , 'Q' , & 1530 ! interp_type , lagrange_order ,lowest_lev_from_sfc , & 1531 ! zap_close_levels , force_sfc_in_vinterp , & 1532 ! ids , ide , jds , jde , kds , kde , & 1533 ! ims , ime , jms , jme , kms , kme , & 1534 ! its , ite , jts , jte , kts , kte ) 1535 ! 1536 ! CALL vert_interp_old ( grid%em_qclo_gc , grid%em_pd_gc , scalar(:,:,:,16),grid%em_pb , & 1537 ! num_metgrid_levels , 'Q' , & 1538 ! interp_type , lagrange_order,lowest_lev_from_sfc , & 1539 ! zap_close_levels , force_sfc_in_vinterp , & 1540 ! ids , ide , jds , jde , kds , kde , & 1541 ! ims , ime , jms , jme , kms , kme , & 1542 ! its , ite , jts , jte , kts , kte ) 1543 ! 1544 ! CALL vert_interp_old ( grid%em_qcl2_gc , grid%em_pd_gc , scalar(:,:,:,17),grid%em_pb , & 1545 ! num_metgrid_levels , 'Q' , & 1546 ! interp_type , lagrange_order,lowest_lev_from_sfc , & 1547 ! zap_close_levels , force_sfc_in_vinterp , & 1548 ! ids , ide , jds , jde , kds , kde , & 1549 ! ims , ime , jms , jme , kms , kme , & 1550 ! its , ite , jts , jte , kts , kte ) 1551 ! 1552 ! CALL vert_interp_old ( grid%em_qhcl_gc , grid%em_pd_gc , scalar(:,:,:,18),grid%em_pb , & 1553 ! num_metgrid_levels , 'Q' , & 1554 ! interp_type , lagrange_order,lowest_lev_from_sfc , & 1555 ! zap_close_levels , force_sfc_in_vinterp , & 1556 ! ids , ide , jds , jde , kds , kde , & 1557 ! ims , ime , jms , jme , kms , kme , & 1558 ! its , ite , jts , jte , kts , kte ) 1559 ! 1560 ! CALL vert_interp_old ( grid%em_qhocl_gc , grid%em_pd_gc , scalar(:,:,:,19),grid%em_pb , & 1561 ! num_metgrid_levels , 'Q' , & 1562 ! interp_type , lagrange_order,lowest_lev_from_sfc , & 1563 ! zap_close_levels , force_sfc_in_vinterp , & 1564 ! ids , ide , jds , jde , kds , kde , & 1565 ! ims , ime , jms , jme , kms , kme , & 1566 ! its , ite , jts , jte , kts , kte ) 1567 ! 1568 ! CALL vert_interp_old ( grid%em_qclco_gc , grid%em_pd_gc , scalar(:,:,:,20),grid%em_pb , & 1569 ! num_metgrid_levels , 'Q' , & 1570 ! interp_type , lagrange_order,lowest_lev_from_sfc , & 1571 ! zap_close_levels , force_sfc_in_vinterp , & 1572 ! ids , ide , jds , jde , kds , kde , & 1573 ! ims , ime , jms , jme , kms , kme , & 1574 ! its , ite , jts , jte , kts , kte ) 1575 ! 1576 ! CALL vert_interp_old ( grid%em_qclco3_gc , grid%em_pd_gc , scalar(:,:,:,21),grid%em_pb , & 1577 ! num_metgrid_levels , 'Q' , & 1578 ! interp_type , lagrange_order,lowest_lev_from_sfc , & 1579 ! zap_close_levels , force_sfc_in_vinterp , & 1580 ! ids , ide , jds , jde , kds , kde , & 1581 ! ims , ime , jms , jme , kms , kme , & 1582 ! its , ite , jts , jte , kts , kte ) 1583 ! 1584 ! CALL vert_interp_old ( grid%em_qcocl2_gc , grid%em_pd_gc , scalar(:,:,:,22),grid%em_pb , & 1585 ! num_metgrid_levels , 'Q' , & 1586 ! interp_type , lagrange_order,lowest_lev_from_sfc , & 1587 ! zap_close_levels , force_sfc_in_vinterp , & 1588 ! ids , ide , jds , jde , kds , kde , & 1589 ! ims , ime , jms , jme , kms , kme , & 1590 ! its , ite , jts , jte , kts , kte ) 1591 ! 1592 ! CALL vert_interp_old ( grid%em_qs_gc , grid%em_pd_gc , scalar(:,:,:,23), grid%em_pb , & 1593 ! num_metgrid_levels , 'Q' , & 1594 ! interp_type , lagrange_order ,lowest_lev_from_sfc , & 1595 ! zap_close_levels , force_sfc_in_vinterp , & 1596 ! ids , ide , jds , jde , kds , kde , & 1597 ! ims , ime , jms , jme , kms , kme , & 1598 ! its , ite , jts , jte , kts , kte ) 1599 ! 1600 ! CALL vert_interp_old ( grid%em_qso_gc , grid%em_pd_gc , scalar(:,:,:,24),grid%em_pb , & 1601 ! num_metgrid_levels , 'Q' , & 1602 ! interp_type , lagrange_order,lowest_lev_from_sfc , & 1603 ! zap_close_levels , force_sfc_in_vinterp , & 1604 ! ids , ide , jds , jde , kds , kde , & 1605 ! ims , ime , jms , jme , kms , kme , & 1606 ! its , ite , jts , jte , kts , kte ) 1607 ! 1608 ! CALL vert_interp_old ( grid%em_qso2_gc , grid%em_pd_gc , scalar(:,:,:,25), grid%em_pb , & 1609 ! num_metgrid_levels , 'Q' , & 1610 ! interp_type , lagrange_order ,lowest_lev_from_sfc , & 1611 ! zap_close_levels , force_sfc_in_vinterp , & 1612 ! ids , ide , jds , jde , kds , kde , & 1613 ! ims , ime , jms , jme , kms , kme , & 1614 ! its , ite , jts , jte , kts , kte ) 1615 ! 1616 ! CALL vert_interp_old ( grid%em_qo3_gc , grid%em_pd_gc , scalar(:,:,:,26),grid%em_pb , & 1617 ! num_metgrid_levels , 'Q' , & 1618 ! interp_type , lagrange_order ,lowest_lev_from_sfc , & 1619 ! zap_close_levels , force_sfc_in_vinterp , & 1620 ! ids , ide , jds , jde , kds , kde , & 1621 ! ims , ime , jms , jme , kms , kme , & 1622 ! its , ite , jts , jte , kts , kte ) 1623 ! 1624 ! CALL vert_interp_old ( grid%em_qs2o2_gc , grid%em_pd_gc , scalar(:,:,:,27),grid%em_pb , & 1625 ! num_metgrid_levels , 'Q' , & 1626 ! interp_type , lagrange_order,lowest_lev_from_sfc , & 1627 ! zap_close_levels , force_sfc_in_vinterp , & 1628 ! ids , ide , jds , jde , kds , kde , & 1629 ! ims , ime , jms , jme , kms , kme , & 1630 ! its , ite , jts , jte , kts , kte ) 1631 ! 1632 ! CALL vert_interp_old ( grid%em_qocs_gc , grid%em_pd_gc , scalar(:,:,:,28),grid%em_pb , & 1633 ! num_metgrid_levels , 'Q' , & 1634 ! interp_type , lagrange_order,lowest_lev_from_sfc , & 1635 ! zap_close_levels , force_sfc_in_vinterp , & 1636 ! ids , ide , jds , jde , kds , kde , & 1637 ! ims , ime , jms , jme , kms , kme , & 1638 ! its , ite , jts , jte , kts , kte ) 1639 ! 1640 ! CALL vert_interp_old ( grid%em_qhso3_gc , grid%em_pd_gc , scalar(:,:,:,29),grid%em_pb , & 1641 ! num_metgrid_levels , 'Q' , & 1642 ! interp_type , lagrange_order,lowest_lev_from_sfc , & 1643 ! zap_close_levels , force_sfc_in_vinterp , & 1644 ! ids , ide , jds , jde , kds , kde , & 1645 ! ims , ime , jms , jme , kms , kme , & 1646 ! its , ite , jts , jte , kts , kte ) 1647 ! 1648 ! CALL vert_interp_old ( grid%em_qh2so4_gc , grid%em_pd_gc , scalar(:,:,:,30),grid%em_pb , & 1649 ! num_metgrid_levels , 'Q' , & 1650 ! interp_type , lagrange_order,lowest_lev_from_sfc , & 1651 ! zap_close_levels , force_sfc_in_vinterp , & 1652 ! ids , ide , jds , jde , kds , kde , & 1653 ! ims , ime , jms , jme , kms , kme , & 1654 ! its , ite , jts , jte , kts , kte ) 1655 ! 1656 ! CALL vert_interp_old ( grid%em_qs2_gc , grid%em_pd_gc , scalar(:,:,:,31),grid%em_pb , & 1657 ! num_metgrid_levels , 'Q' , & 1658 ! interp_type , lagrange_order,lowest_lev_from_sfc , & 1659 ! zap_close_levels , force_sfc_in_vinterp , & 1660 ! ids , ide , jds , jde , kds , kde , & 1661 ! ims , ime , jms , jme , kms , kme , & 1662 ! its , ite , jts , jte , kts , kte ) 1663 ! 1664 ! CALL vert_interp_old ( grid%em_qclso2_gc , grid%em_pd_gc , scalar(:,:,:,32),grid%em_pb , & 1665 ! num_metgrid_levels , 'Q' , & 1666 ! interp_type , lagrange_order,lowest_lev_from_sfc , & 1667 ! zap_close_levels , force_sfc_in_vinterp , & 1668 ! ids , ide , jds , jde , kds , kde , & 1669 ! ims , ime , jms , jme , kms , kme , & 1670 ! its , ite , jts , jte , kts , kte ) 1671 ! 1672 ! CALL vert_interp_old ( grid%em_qoscl_gc , grid%em_pd_gc , scalar(:,:,:,33),grid%em_pb , & 1673 ! num_metgrid_levels , 'Q' , & 1674 ! interp_type , lagrange_order,lowest_lev_from_sfc , & 1675 ! zap_close_levels , force_sfc_in_vinterp , & 1676 ! ids , ide , jds , jde , kds , kde , & 1677 ! ims , ime , jms , jme , kms , kme , & 1678 ! its , ite , jts , jte , kts , kte ) 1679 ! 1680 ! CALL vert_interp_old ( grid%em_qh2oliq_gc , grid%em_pd_gc , scalar(:,:,:,34),grid%em_pb , & 1681 ! num_metgrid_levels , 'Q' , & 1682 ! interp_type , lagrange_order,lowest_lev_from_sfc , & 1683 ! zap_close_levels , force_sfc_in_vinterp , & 1684 ! ids , ide , jds , jde , kds , kde , & 1685 ! ims , ime , jms , jme , kms , kme , & 1686 ! its , ite , jts , jte , kts , kte ) 1687 ! 1688 ! CALL vert_interp_old ( grid%em_qh2so4liq_gc , grid%em_pd_gc , scalar(:,:,:,35),grid%em_pb , & 1689 ! num_metgrid_levels , 'Q' , & 1690 ! interp_type , lagrange_order,lowest_lev_from_sfc , & 1691 ! zap_close_levels , force_sfc_in_vinterp , & 1692 ! ids , ide , jds , jde , kds , kde , & 1693 ! ims , ime , jms , jme , kms , kme , & 1694 ! its , ite , jts , jte , kts , kte ) 1695 ! 1696 !endif 1697 !#endif 1696 1698 1697 1699 !!! we want any scalar (i.e. tracer) to be positive
Note: See TracChangeset
for help on using the changeset viewer.