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 4333 for branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/LIM_SRC_3/limsbc.F90 – NEMO

Ignore:
Timestamp:
2013-12-11T18:34:00+01:00 (10 years ago)
Author:
clem
Message:

remove remaining bugs in LIM3, so that it can run in both regional and global config

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/LIM_SRC_3/limsbc.F90

    r4302 r4333  
    5151   PUBLIC   lim_sbc_tau    ! called by sbc_ice_lim 
    5252 
    53    REAL(wp)  ::   epsi16 = 1.e-16_wp   ! constant values 
    5453   REAL(wp)  ::   rzero  = 0._wp     
    5554   REAL(wp)  ::   rone   = 1._wp 
     
    147146 
    148147            !   computation the solar flux at ocean surface 
    149             IF (lk_cpl) THEN ! be carfeful: not being tested yet 
     148            IF (lk_cpl) THEN ! be carfeful: not been tested yet 
    150149               ! original line 
    151150               !zfcm1 = qsr_tot(ji,jj) + fstric(ji,jj) * at_i(ji,jj) 
     
    190189            qns(ji,jj) = zfcm2 - fdtcn(ji,jj)                        ! non solar heat flux 
    191190            !                           ! fdtcn : turbulent oceanic heat flux 
    192  
    193             !!gm   this IF prevents the vertorisation of the whole loop 
    194           !  IF ( ( ji == jiindx ) .AND. ( jj == jjindx) ) THEN 
    195           !     WRITE(numout,*) ' lim_sbc : heat fluxes ' 
    196           !     WRITE(numout,*) ' qsr       : ', qsr(jiindx,jjindx) 
    197           !     WRITE(numout,*) ' pfrld     : ', pfrld(jiindx,jjindx) 
    198           !     WRITE(numout,*) ' fstric    : ', fstric (jiindx,jjindx) 
    199           !     WRITE(numout,*) 
    200           !     WRITE(numout,*) ' qns       : ', qns(jiindx,jjindx) 
    201           !     WRITE(numout,*) ' fdtcn     : ', fdtcn(jiindx,jjindx) 
    202           !     WRITE(numout,*) ' ifral     : ', ifral 
    203           !     WRITE(numout,*) ' ial       : ', ial   
    204           !     WRITE(numout,*) ' qcmif     : ', qcmif(jiindx,jjindx) 
    205           !     WRITE(numout,*) ' qldif     : ', qldif(jiindx,jjindx) 
    206           !     !WRITE(numout,*) ' qcmif / dt: ', qcmif(jiindx,jjindx) * r1_rdtice 
    207           !     !WRITE(numout,*) ' qldif / dt: ', qldif(jiindx,jjindx) * r1_rdtice 
    208           !     WRITE(numout,*) ' ifrdv     : ', ifrdv 
    209           !     WRITE(numout,*) ' qfvbq     : ', qfvbq(jiindx,jjindx) 
    210           !     WRITE(numout,*) ' qdtcn     : ', qdtcn(jiindx,jjindx) 
    211           !     !WRITE(numout,*) ' qfvbq / dt: ', qfvbq(jiindx,jjindx) * r1_rdtice 
    212           !     !WRITE(numout,*) ' qdtcn / dt: ', qdtcn(jiindx,jjindx) * r1_rdtice 
    213           !     WRITE(numout,*) ' ' 
    214           !     WRITE(numout,*) ' fdtcn     : ', fdtcn(jiindx,jjindx) 
    215           !     WRITE(numout,*) ' fhmec     : ', fhmec(jiindx,jjindx) 
    216           !     WRITE(numout,*) ' fheat_mec : ', fheat_mec(jiindx,jjindx) 
    217           !     WRITE(numout,*) ' fhbri     : ', fhbri(jiindx,jjindx) 
    218           !     WRITE(numout,*) ' fheat_res : ', fheat_res(jiindx,jjindx) 
    219           !  ENDIF 
    220             !!gm   end 
    221191         END DO 
    222192      END DO 
Note: See TracChangeset for help on using the changeset viewer.