Ignore:
Timestamp:
Sep 13, 2000, 3:41:01 PM (24 years ago)
Author:
lmdzadmin
Message:

Divers bugs corriges pour le couplage
LF

Location:
LMDZ.3.3/branches/rel-LF/libf/phylmd
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • LMDZ.3.3/branches/rel-LF/libf/phylmd/interface_surf.F90

    r121 r131  
    295295!
    296296    if (ocean == 'couple') then
    297       nexca = 0
     297!     nexca = 0
    298298      if (nexca == 0) then
    299299        abort_message='nexca = 0 dans interfoce_cpl'
     
    362362      cal = 0.
    363363      dif_grnd = 0.
     364      beta = 1.
    364365
    365366!    else if (ocean == 'slab  ') then
     
    761762  real, allocatable, dimension(:,:),save :: tamp_zmasq
    762763  real, dimension(iim, jjm+1) :: deno
     764!
     765  logical, save    :: first_appel = .true.
     766  logical          :: check = .true.
    763767!
    764768! Initialisation
    765769!
    766   if (debut) then
     770  if (check) write(*,*)'Entree ',modname,'nisurf = ',nisurf
     771 
     772  if (first_appel) then
    767773    sum_error = 0
    768774    allocate(cpl_sols(knon,2), stat = error); sum_error = sum_error + error
     
    780786    allocate(read_sst(iim, jjm+1), stat = error); sum_error = sum_error + error
    781787    allocate(read_sic(iim, jjm+1), stat = error); sum_error = sum_error + error
    782     allocate(read_sit(iim, jjm+1), stat = error); sum_error = sum_error + error
    783788    allocate(read_sit(iim, jjm+1), stat = error); sum_error = sum_error + error
    784789    allocate(read_alb_sic(iim, jjm+1), stat = error); sum_error = sum_error + error
     
    832837    endif
    833838
    834   endif ! fin if (debut)
     839    first_appel = .false.
     840  endif ! fin if (first_appel)
    835841
    836842! fichier restart et fichiers histoires
  • LMDZ.3.3/branches/rel-LF/libf/phylmd/oasis.F

    r121 r131  
    5858c     Define the model name
    5959c
    60       clmodnam = 'toyatm'       ! as in $NBMODEL in Cpl/Nam/namcouple.tmp
     60      clmodnam = 'lmdz.x'       ! as in $NBMODEL in Cpl/Nam/namcouple.tmp
    6161c
    6262c     Define the coupler name
     
    162162c         Define names of each model as in $NBMODEL line of namcouple
    163163c         (used for CLIM/MPI2 only)       
    164           cmpi_modnam(1)='toyatm'
    165           cmpi_modnam(2)='toyoce'
     164          cmpi_modnam(1)='lmdz.x'
     165          cmpi_modnam(2)='oce.xx'
    166166c         Start the coupling
    167167c
  • LMDZ.3.3/branches/rel-LF/libf/phylmd/oasis.h

    r98 r131  
    1010
    1111      CHARACTER*8 cchan
    12       PARAMETER ( cchan='PIPE' )
     12      PARAMETER ( cchan='CLIM' )
    1313C
    1414C     --- end of oasis.h
Note: See TracChangeset for help on using the changeset viewer.