/[lmdze]/trunk/phylmd/Interface_surf/interfsurf_hq.f
ViewVC logotype

Diff of /trunk/phylmd/Interface_surf/interfsurf_hq.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 292 by guez, Fri Jul 20 17:08:44 2018 UTC revision 293 by guez, Wed Jul 25 16:16:53 2018 UTC
# Line 26  contains Line 26  contains
26      USE indicesol, ONLY: epsfra, is_lic, is_oce, is_sic, is_ter      USE indicesol, ONLY: epsfra, is_lic, is_oce, is_sic, is_ter
27      USE interface_surf, ONLY: conf_interface      USE interface_surf, ONLY: conf_interface
28      USE interfsur_lim_m, ONLY: interfsur_lim      USE interfsur_lim_m, ONLY: interfsur_lim
29      use read_sst_m, only: read_sst      use limit_read_sst_m, only: limit_read_sst
30      use soil_m, only: soil      use soil_m, only: soil
31      USE suphec_m, ONLY: rcpd, rtt      USE suphec_m, ONLY: rcpd, rtt
32    
# Line 179  contains Line 179  contains
179      case (is_oce)      case (is_oce)
180         ! Surface "oc\'ean", appel \`a l'interface avec l'oc\'ean         ! Surface "oc\'ean", appel \`a l'interface avec l'oc\'ean
181    
182         call read_sst(julien, knindex, tsurf)         call limit_read_sst(julien, knindex, tsurf)
183         cal = 0.         cal = 0.
184         beta = 1.         beta = 1.
185         dif_grnd = 0.         dif_grnd = 0.
Legend:
Removed from v.292  
changed lines
  Added in v.293
  ViewVC Help
Powered by ViewVC 1.1.21