Changeset 2426 for trunk


Ignore:
Timestamp:
Nov 3, 2020, 3:49:37 PM (4 years ago)
Author:
emillour
Message:

Common dynamics:
Fix a couple of harmless typos spoted by YJ.
EM

Location:
trunk/LMDZ.COMMON/libf
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.COMMON/libf/dyn3d_common/disvert.F90

    r1442 r2426  
    393393      ELSE IF(SIGN(f1,f4)/=f1) THEN; x2=xx; f2=f4
    394394      ELSE IF(SIGN(f2,f4)/=f2) THEN; x1=xx; f1=f4
    395       ELSE; CALL abort_gcm("ridders",'Algorithm failed (which is odd...')
     395      ELSE; CALL abort_gcm("ridders",'Algorithm failed (which is odd...',1)
    396396      END IF
    397397      IF(ABS(10.*LOG(ABS(x2-x1)))<=1E-5) EXIT       !--- ERROR ON SIG <= 0.01m           

  • trunk/LMDZ.COMMON/libf/dyn3d_common/dynredem.F90

    r1850 r2426  
    242242
    243243! Define variables that will be stored later:
    244   WRITE(unites,"('days since ',i4,'-',i2.2,'-',i2.2,' 00:00:00')"),&
     244  WRITE(unites,"('days since ',i4,'-',i2.2,'-',i2.2,' 00:00:00')") &
    245245               yyears0,mmois0,jjour0
    246246  IF (start_file_type.eq."earth") THEN

  • trunk/LMDZ.COMMON/libf/dyn3dpar/dynredem_p.F90

    r1850 r2426  
    243243
    244244! Define variables that will be stored later:
    245   WRITE(unites,"('days since ',i4,'-',i2.2,'-',i2.2,' 00:00:00')"),&
     245  WRITE(unites,"('days since ',i4,'-',i2.2,'-',i2.2,' 00:00:00')") &
    246246               yyears0,mmois0,jjour0
    247247  IF (start_file_type.eq."earth") THEN
Note: See TracChangeset for help on using the changeset viewer.