Changeset 740 for trunk/LMDZ.MARS/libf/phymars/surfini.F

Timestamp:

Jul 25, 2012, 1:03:19 PM (12 years ago)

Author:

tnavarro

Message:

module for ice and radius radius computation

File:

• trunk/LMDZ.MARS/libf/phymars/surfini.F (modified) (1 diff)

trunk/LMDZ.MARS/libf/phymars/surfini.F

@@ -307 +307 @@
           longwatercaptag(203)    = .true. ! outlier, lat = 75
           longwatercaptag(207)    = .true. ! outlier, lat = 75
-          longwatercaptag(242)    = .true. ! outlier, lat = 75
           longwatercaptag(244)    = .true. ! outlier, lat = 75
           longwatercaptag(246)    = .true. ! outlier, lat = 75
-          longwatercaptag(248)    = .true. ! outlier, lat = 75
           longwatercaptag(250)    = .true. ! outlier, lat = 75
           longwatercaptag(252)    = .true. ! outlier, lat = 75
           longwatercaptag(254)    = .true. ! outlier, lat = 75
-          longwatercaptag(256:257)= .true. ! outlier, lat = 75
+          longwatercaptag(256)    = .true. ! outlier, lat = 75
           endif
 !--------------------------------------------------------------