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 5104 for branches/2015/dev_r5094_UKMO_ISFCLEAN/NEMOGCM/NEMO/OPA_SRC/DIA/diawri.F90 – NEMO

Ignore:
Timestamp:
2015-02-23T17:07:54+01:00 (9 years ago)
Author:
mathiot
Message:

correction of minor bug with isf + add some extra test on ln_isfcav + restore ssu/ssv

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2015/dev_r5094_UKMO_ISFCLEAN/NEMOGCM/NEMO/OPA_SRC/DIA/diawri.F90

    r5098 r5104  
    167167         CALL iom_put( "uoce" , umask(:,:,:) * un(:,:,:)                  )    ! i-current 
    168168         CALL iom_put( "voce" , vmask(:,:,:) * vn(:,:,:)                  )    ! j-current 
     169         CALL iom_put( "ssu"  , umask(:,:,1) * un(:,:,1)                  )    ! i-current 
     170         CALL iom_put( "ssv"  , vmask(:,:,1) * vn(:,:,1)                  )    ! j-current 
    169171      ENDIF 
    170172      CALL iom_put(    "avt"  , avt                        )    ! T vert. eddy diff. coef. 
Note: See TracChangeset for help on using the changeset viewer.