Changeset 2798 for LMDZ5/trunk/libf
- Timestamp:
- Feb 24, 2017, 3:40:57 PM (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/dynphy_lonlat/phylmd/init_ssrf_m.F90
r2597 r2798 9 9 USE grid_atob_m, ONLY: grille_m 10 10 USE ioipsl, ONLY: flininfo, flinopen, flinget, flinclo 11 USE ioipsl_getin_p_mod, ONLY: getin_p 11 12 USE comconst_mod, ONLY: im, pi 12 13 … … 42 43 REAL, ALLOCATABLE :: dlat_lic(:), lat_lic(:,:), flic_tmp(:,:), vtmp(:,:) 43 44 REAL :: date, lev(1), dt, deg2rad 45 LOGICAL :: no_ter_antartique ! If true, no land points are allowed at Antartic 44 46 !------------------------------------------------------------------------------- 45 47 deg2rad= pi/180.0 … … 97 99 END DO 98 100 101 102 !--- Option no_ter_antartique removes all land fractions souther than 60S. 103 !--- Land ice is set instead of the land fractions on these latitudes. 104 !--- The ocean and sea-ice fractions are not changed. 105 no_ter_antartique=.FALSE. 106 CALL getin_p('no_ter_antartique',no_ter_antartique) 107 WRITE(lunout,*)"no_ter_antartique=",no_ter_antartique 108 IF (no_ter_antartique) THEN 109 ! Remove all land fractions souther than 60S and set land-ice instead 110 WRITE(lunout,*) "Remove land fractions souther than 60deg south by increasing" 111 WRITE(lunout,*) "the continental ice fractions. No land can now be found at Antartic." 112 DO ji=1, klon 113 IF (latitude_deg(ji)<-60.0) THEN 114 pctsrf(ji,is_lic) = pctsrf(ji,is_lic) + pctsrf(ji,is_ter) 115 pctsrf(ji,is_ter) = 0 116 END IF 117 END DO 118 END IF 119 120 99 121 !--- Sub-surface ocean and sea ice (sea ice set to zero for start). 100 122 pctsrf(:,is_oce)=(1.-zmasq(:))
Note: See TracChangeset
for help on using the changeset viewer.