Changeset 2798 for LMDZ5/trunk/libf


Ignore:
Timestamp:
Feb 24, 2017, 3:40:57 PM (8 years ago)
Author:
jghattas
Message:

Add option no_ter_antartique that will remove all land fractions souther than 60deg south. This option is only used by ce0l.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ5/trunk/libf/dynphy_lonlat/phylmd/init_ssrf_m.F90

    r2597 r2798  
    99  USE grid_atob_m,        ONLY: grille_m
    1010  USE ioipsl,             ONLY: flininfo, flinopen, flinget, flinclo
     11  USE ioipsl_getin_p_mod, ONLY: getin_p
    1112  USE comconst_mod, ONLY: im, pi
    1213
     
    4243  REAL, ALLOCATABLE :: dlat_lic(:), lat_lic(:,:), flic_tmp(:,:), vtmp(:,:)
    4344  REAL              :: date, lev(1), dt, deg2rad
     45  LOGICAL           :: no_ter_antartique   ! If true, no land points are allowed at Antartic
    4446!-------------------------------------------------------------------------------
    4547  deg2rad= pi/180.0
     
    9799  END DO
    98100
     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
    99121!--- Sub-surface ocean and sea ice (sea ice set to zero for start).
    100122  pctsrf(:,is_oce)=(1.-zmasq(:))
Note: See TracChangeset for help on using the changeset viewer.