Ignore:
Timestamp:
2020-06-19T17:37:47+02:00 (3 months ago)
Author:
orioltp
Message:

dev_r12512_HPC-04_mcastril_Mixed_Precision_implementation: merge with trunk@13134, see #2364

Location:
NEMO/branches/2020/dev_r12512_HPC-04_mcastril_Mixed_Precision_implementation
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2020/dev_r12512_HPC-04_mcastril_Mixed_Precision_implementation

    • Property svn:externals
      •  

        old new  
        88 
        99# SETTE 
        10 ^/utils/CI/sette@HEAD         sette 
         10^/utils/CI/sette@12931        sette 
  • NEMO/branches/2020/dev_r12512_HPC-04_mcastril_Mixed_Precision_implementation/src/OCE/LBC/lib_mpp.F90

    r12603 r13135  
    13331333      CHARACTER(len=*), INTENT(in   ), OPTIONAL ::        cd2, cd3, cd4, cd5 
    13341334      CHARACTER(len=*), INTENT(in   ), OPTIONAL ::   cd6, cd7, cd8, cd9, cd10 
     1335      ! 
     1336      CHARACTER(LEN=8) ::   clfmt            ! writing format 
     1337      INTEGER          ::   inum 
    13351338      !!---------------------------------------------------------------------- 
    13361339      ! 
    13371340      nstop = nstop + 1 
    13381341      ! 
    1339       ! force to open ocean.output file if not already opened 
    1340       IF( numout == 6 ) CALL ctl_opn( numout, 'ocean.output', 'APPEND', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE. ) 
     1342      IF( cd1 == 'STOP' .AND. narea /= 1 ) THEN    ! Immediate stop: add an arror message in 'ocean.output' file 
     1343         CALL ctl_opn( inum, 'ocean.output', 'APPEND', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE. ) 
     1344         WRITE(inum,*) 
     1345         WRITE(inum,*) ' ==>>>   Look for "E R R O R" messages in all existing *ocean.output* files' 
     1346         CLOSE(inum) 
     1347      ENDIF 
     1348      IF( numout == 6 ) THEN                       ! force to open ocean.output file if not already opened 
     1349         CALL ctl_opn( numout, 'ocean.output', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE., narea ) 
     1350      ENDIF 
    13411351      ! 
    13421352                            WRITE(numout,*) 
     
    13661376         WRITE(numout,*)  'huge E-R-R-O-R : immediate stop' 
    13671377         WRITE(numout,*)   
     1378         CALL FLUSH(numout) 
     1379         CALL SLEEP(60)   ! make sure that all output and abort files are written by all cores. 60s should be enough... 
    13681380         CALL mppstop( ld_abort = .true. ) 
    13691381      ENDIF 
     
    14281440      ! 
    14291441      CHARACTER(len=80) ::   clfile 
     1442      CHARACTER(LEN=10) ::   clfmt            ! writing format 
    14301443      INTEGER           ::   iost 
     1444      INTEGER           ::   idg              ! number of digits 
    14311445      !!---------------------------------------------------------------------- 
    14321446      ! 
     
    14351449      clfile = TRIM(cdfile) 
    14361450      IF( PRESENT( karea ) ) THEN 
    1437          IF( karea > 1 )   WRITE(clfile, "(a,'_',i4.4)") TRIM(clfile), karea-1 
     1451         IF( karea > 1 ) THEN 
     1452            ! Warning: jpnij is maybe not already defined when calling ctl_opn -> use mppsize instead of jpnij 
     1453            idg = MAX( INT(LOG10(REAL(MAX(1,mppsize-1),wp))) + 1, 4 )      ! how many digits to we need to write? min=4, max=9 
     1454            WRITE(clfmt, "('(a,a,i', i1, '.', i1, ')')") idg, idg          ! '(a,a,ix.x)' 
     1455            WRITE(clfile, clfmt) TRIM(clfile), '_', karea-1 
     1456         ENDIF 
    14381457      ENDIF 
    14391458#if defined key_agrif 
Note: See TracChangeset for help on using the changeset viewer.