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 13307 for NEMO/branches/UKMO/NEMO_4.0_mirror_SI3_GPU/src/OCE – NEMO

Ignore:
Timestamp:
2020-07-15T10:38:15+02:00 (4 years ago)
Author:
andmirek
Message:

Ticket #2482: Few additional corrections

Location:
NEMO/branches/UKMO/NEMO_4.0_mirror_SI3_GPU/src/OCE
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/UKMO/NEMO_4.0_mirror_SI3_GPU/src/OCE/DIU/diurnal_bulk.F90

    r10888 r13307  
    198198       
    199199      CHARACTER(200) :: warn_string 
     200      LOGICAL        :: lwarn 
    200201        
    201202      INTEGER :: ji,jj 
     203 
     204      lwarn = .FALSE. 
    202205                      
    203206      DO jj = 1, jpj 
     
    212215            IF (p_fvel(ji,jj) < pp_min_fvel) THEN 
    213216               z_fvel = pp_min_fvel 
    214                WRITE(warn_string,*) "diurnal_sst_takaya step: "& 
    215                &//"friction velocity < minimum\n" & 
    216                &//"Setting friction velocity =",pp_min_fvel 
    217                CALL ctl_warn(warn_string) 
    218                 
     217               lwarn = .TRUE. 
    219218            ELSE 
    220219               z_fvel = p_fvel(ji,jj) 
     
    262261         END DO 
    263262      END DO 
    264        
     263 
     264      IF(lwarn) THEN 
     265         WRITE(warn_string,*) "diurnal_sst_takaya step: "& 
     266         &//"friction velocity < minimum\n" & 
     267         &//"Setting friction velocity =",pp_min_fvel 
     268         CALL ctl_warn(warn_string) 
     269      ENDIF 
     270 
    265271      END FUNCTION t_imp 
    266272 
  • NEMO/branches/UKMO/NEMO_4.0_mirror_SI3_GPU/src/OCE/SBC/sbcdcy.F90

    r13049 r13307  
    240240      ! 
    241241      IF( PRESENT(l_mask) ) THEN 
    242         IF(l_mask) zqsrout(:,:) = float(imask_night(:,:)) 
     242        IF(l_mask) THEN 
     243           zqsrout(:,:) = float(imask_night(:,:)) 
     244        ENDIF 
    243245      ENDIF 
    244246      ! 
Note: See TracChangeset for help on using the changeset viewer.