Changeset 2160 for LMDZ5/branches/testing/libf/phylmd/phyaqua_mod.F90

Timestamp:

Nov 28, 2014, 4:36:29 PM (10 years ago)

Author:

Laurent Fairhead

Message:

Merged trunk changes -r2070:2158 into testing branch. Compilation problems introduced by revision r2155 have been corrected by hand

Location:

LMDZ5/branches/testing

Files:

• . (modified) (1 prop)
• libf/phylmd/phyaqua_mod.F90 (modified) (1 diff)

LMDZ5/branches/testing/libf/phylmd/phyaqua_mod.F90

@@ -897 +897 @@
       END IF
 
+      if (type_profil.EQ.20) then
+      print*,'Profile SST 20'
+!     Méthode 13 "Qmax2K" plateau réel �|  l'Equateur augmenté +2K
+
+      do j=1,klon
+        phy_sst(j,i)=248.+55.*(1-sin(rlatd(j))**2)
+      enddo
+      endif
+
+      if (type_profil.EQ.21) then
+      print*,'Profile SST 21'
+!     Méthode 13 "Qmax2K" plateau réel �|  l'Equateur augmenté +2K
+      do j=1,klon
+        phy_sst(j,i)=252.+55.*(1-sin(rlatd(j))**2)
+      enddo
+      endif
+
+
+
     END DO