Changeset 802 for trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/main
- Timestamp:
- Oct 5, 2012, 2:52:43 AM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/main/real_em.F
r598 r802 717 717 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 718 718 IF (config_flags%mars .gt. 0) THEN 719 !! ceci suffit avec les modes 2 et 10 qui ne transportent qu'un seul traceur 719 720 CALL couple ( grid%em_mu_2 , grid%em_mub , qbdy3dtemp1 , grid%scalar(:,:,:,2) , 't' , grid%msft , & 720 721 ids, ide, jds, jde, kds, kde, ims, ime, jms, jme, kms, kme, ips, ipe, jps, jpe, kps, kpe )
Note: See TracChangeset
for help on using the changeset viewer.