Ignore:
Timestamp:
Aug 11, 2014, 3:32:42 PM (10 years ago)
Author:
fhourdin
Message:

Options pour tests terra planete pour le tuning.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/phylmd/phyaqua_mod.F90

    r1992 r2107  
    897897      END IF
    898898
     899      if (type_profil.EQ.20) then
     900      print*,'Profile SST 20'
     901!     Méthode 13 "Qmax2K" plateau réel �|  l'Equateur augmenté +2K
     902
     903      do j=1,klon
     904        phy_sst(j,i)=248.+55.*(1-sin(rlatd(j))**2)
     905      enddo
     906      endif
     907
     908      if (type_profil.EQ.21) then
     909      print*,'Profile SST 21'
     910!     Méthode 13 "Qmax2K" plateau réel �|  l'Equateur augmenté +2K
     911      do j=1,klon
     912        phy_sst(j,i)=252.+55.*(1-sin(rlatd(j))**2)
     913      enddo
     914      endif
     915
     916
     917
    899918    END DO
    900919
Note: See TracChangeset for help on using the changeset viewer.