Ignore:
Timestamp:
Sep 9, 2008, 3:17:08 PM (16 years ago)
Author:
lsce
Message:
  • Modifications liées au calcul des nouveau sous-fractions
  • Nettoyage de ocean slab : il reste uniquement la version avec glace de mer forcé
  • Nouveaux variables pour distiguer la version et type d'ocean : type_ocean=force/slab/couple, version_ocean=opa8/nemo pour couplé ou version_ocean=sicOBS pour slab

JG

Location:
LMDZ4/trunk/libf/dyn3dpar
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/trunk/libf/dyn3dpar/abort_gcm.F

    r985 r995  
    1919C         ierr    = severity of situation ( = 0 normal )
    2020
    21       character (len=20) :: modname
     21      character (len=*) :: modname
    2222      integer ierr
    23       character (len=80) :: message
     23      character (len=*) :: message
    2424
    2525      write(lunout,*) 'in abort_gcm'

  • LMDZ4/trunk/libf/dyn3dpar/leapfrog_p.F

    r985 r995  
    324324c$OMP MASTER
    325325      ItCount=ItCount+1
    326       if (MOD(ItCount,1)==0) then
     326      if (MOD(ItCount,1)==1) then
    327327        debug=.true.
    328328      else

  • LMDZ4/trunk/libf/dyn3dpar/parallel.F90

    r985 r995  
    157157    use mod_prism_proto
    158158#endif
    159       use surface_data, only : ocean
     159      use surface_data, only : type_ocean
    160160      implicit none
    161161
    … …  
    170170      deallocate(jj_nb_para)
    171171
    172       if (ocean == 'couple') then
     172      if (type_ocean == 'couple') then
    173173#ifdef CPP_COUPLE
    174174         call prism_terminate_proto(ierr)
Note: See TracChangeset for help on using the changeset viewer.