New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 1032 – NEMO

Changeset 1032


Ignore:
Timestamp:
2008-05-30T16:43:39+02:00 (16 years ago)
Author:
cetlod
Message:

the variable freeze is rename to fr_i, see ticket 176

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/OFF_SRC/dtadyn.F90

    r1013 r1032  
    2121   USE zdfmxl 
    2222   USE trabbl          ! tracers: bottom boundary layer 
    23    USE ocfzpt 
    2423   USE zdfddm          ! vertical  physics: double diffusion 
    2524   USE lbclnk          ! ocean lateral boundary conditions (or mpp link) 
     
    563562       ! 
    564563                    wndm(:,:) = flx(:,:,jpwind) 
    565                     freeze(:,:) = flx(:,:,jpice) 
     564                    fr_i(:,:) = flx(:,:,jpice) 
    566565                    emp(:,:) = flx(:,:,jpemp) 
    567566                    emps(:,:) = emp(:,:) 
     
    628627       ! 
    629628                  wndm(:,:) = flx(:,:,jpwind) 
    630                   freeze(:,:) = flx(:,:,jpice) 
    631                   emp(:,:)    = flx(:,:,jpemp) 
    632                   emps(:,:)   = emp(:,:) 
    633                   qsr(:,:)    = flx(:,:,jpqsr) 
     629                  fr_i(:,:) = flx(:,:,jpice) 
     630                  emp(:,:)  = flx(:,:,jpemp) 
     631                  emps(:,:) = emp(:,:) 
     632                  qsr(:,:)  = flx(:,:,jpqsr) 
    634633       ! 
    635634       ! other interpolation 
Note: See TracChangeset for help on using the changeset viewer.