Ignore:
Timestamp:
Mar 21, 2002, 4:09:32 PM (22 years ago)
Author:
lmdzadmin
Message:

2 changements pour les fichiers histoire:

  • utilisation de l'entree "rectilineaire" de IOIPSL pour ne plus avoir

a

lancer ncregular a chaque fois

  • le calendrier des fichiers histoire est maintenant base sur la date d'initialisation de la simulation plutot que sur la date de depart du

job

en cours

LF

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ.3.3/branches/rel-LF/libf/dyn3d/limit_netcdf.F

    r327 r353  
    226226     . dlon_msk, dlat_msk, champ_msk, interbar  )
    227227
    228       CALL mask_c_o(imdep, jmdep, dlon_msk, dlat_msk,champ_msk,
    229      .             iim, jjp1, rlonv, rlatu, champint)
    230 c      CALL gr_int_dyn(champint, masque, iim, jjp1)
    231 c      DO i = 1, iim
    232 c         masque(i,1) = FLOAT(NINT(masque(i,1)))
    233 c         masque(i,jjp1) = FLOAT(NINT(masque(i,jjp1)))
    234 c      ENDDO
    235228      DO i = 1, iim
    236229      DO j = 1, jjp1
    237          mask(i,j) = champint(i,j)
    238       ENDDO
    239       ENDDO
    240 c      CALL gr_dyn_fi(1, iip1, jjp1, klon, masque, phy_nat0)
     230         mask(i,j) = masque(i,j)
     231      ENDDO
     232      ENDDO
    241233      ierr = NF_CLOSE(ncid)
    242234c
Note: See TracChangeset for help on using the changeset viewer.